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256K SUPEROM 
EXPANDER 

(~| Select Instantly from 8 socket* 

which accept np to 32K EPROM each. 
Q Program your own FPROMs using 

oar EPROM progrsmer. 
_J Ho need to have lota of cartridges 

• Juat make a selection from the 

Superom menu 
_| Fully menu driven on power up 

_| Select any slot under software 
controls. 

_J Unique EPROM generator feature 
will take your own programs • basic 
or m/c At turn them into autostart 
FPROMs. (EPROM burner required). 
J Accepts 3784/37138/27356 
EPROMa. 

Q On board unstoppable react. 
|_J On board operating systems • oo 
programs to load. 



ONLY 



£29.99 




RESET CARTRIDGE 

Q Unstoppable reset button. 

NOTE:- user port cheaper type reset 

buttons offered by others are not 

unstoppable. 
_] Resets even so called "unatoppable" 

programs. 
_] Add pokes from mag a nines etc. 
_] F1U In cartridge port. 
□ Simply plug In. 



ONLY 



£5.99 




3 SLOT 

MOTHERBOARD 

SAVE WEAR fit TEAR ON YOUR 

EXPANSION PORT 

_J Accepts 3 cartridges. 

□ Switch in /out any slot. 
_j Onboard safety fuse. 

□ Fully buffered. 
Q High grade PCB. 
J Reset button. 



ONLY 



£16.99 



MIDI 64 

FULL MIDI INTERFACE FOR THE 
64/138 AT A REALISTIC PRICE. 
!J MIDI In/MTDI thru/2 x MIDI out. 

_] Compatible with most leading 
software packages. 

only £29.99 




DIGITAL SOUND 
SAMPLER 

I J The new sampler allows you to 

record any sound digitally Into 

memory A then replay It with 

aatoundlng effects. 
_J Playback forwards /backwards with 

echo/ reverb /ring modulation. 
_J Now with full sound editing module 

to produce outstanding effects. 
_J Pull 8 bit D to A a) ADC conversion. 
_J MIDI compatible with suitable 

Interface. (I.e. Dstel unit for 

£29.99. see ad.). 
_j Live effects menu Includes real 

time display uf waveforms. 
_| line ln/mlc In /line out/feedback 

controls. 

Q Powerful! sequencer with editing 

features. 
_] Load/save sample. 
[J Up lo 8 samples In mew ory at one 

time. 

_J Tape or dlak (please stste). 
_J Complete software /hardware 
package. 

o nly £49.99 

COM-DRUM 

DIGITAL DRUM SYSTEM 

Now you can turn your digital sound 
sampler into s digital drum system. 
8 digital drum sounds In memory at 
one time. 

Complete with 3 drum kits. 
Real drum sounds - not synthesised. 
Create superb drum rhythms with 
real ft atep time. 
Full editing. Menu driven. 
Output to hi fi or through TV 
spesker. 

Load/save fsclUUea. 



J 
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£9.99 



ONLY 

STATE TAPE OR DISK 



COM-DRUM EDITOR 

_J 34 drum sounds supplied on disk to 
enable you to construct your own 
drum kit. 

_J Re-arrange Bounds supplied with a 

Corn-Drum to make new kits. 
□ Load/save facilities. 



ONLY 



£4.99 



DISK ONLY 



DATA RECORDER 

l_J Quality Commodore compatible 
data recorder. 

[J Pause control, counter, etc 

□ Suitable for 84/138 

Q Send now for quick delivery. 

only £24.99 




DEEP SCAN BURST NIBBLER 



TM 



J The most powerful! disk nlbbler 
svsllsble anywhere, si any price) 
Burst Nlbbler Is actually a two part 
system - s software package ft a 
parallel cable to connect the 1541/ 
1570/1871 to 64/128 {stste type). 

J What glvea Burst Mbbler It's power? 
Conventions! nlbblera have to 
decode tbe data from the disk 
before It can transfer It using the 
serial bus - when non standard data 
is encountered they are beat. Burst 
Nlbbler transfers dsta as raw GCR 
code via the parallel csble without 
the need to decode it so yon get a 
perfect copy of the original. 

□ • Will nibble up to 41 tracks 
• Copy a whole disk In under 3 
minutes • Full instructions 

only £24.99 

SOFTWARE Csj A QQ 
ONLY *» 1 ■t"^^ 



• Regular updates - we always 
ship the latest • Pitted In 
minutes - no soldering usually 
required • Full or 1/3 tracks 

• No need to buy parallel cable If 
you have Disk Demon/Dolphin etc. 

• Cable baa througbbus extension 
for other add one. 

Wether to cboose FastHack'em or 
Burst Nlbbler? Faat Hack'em la 
unbeatable value as an "all rounder" 

• with nlbblera, 1 or 3 drive copy, 
format, file copy. 1571 copy etc. 
etc., so If you have a more general 
requirement perhaps Faat Hack'em 
la for you. Burst Nlbbler la a pure 
nlbbler second to none, for the 
reasons stated. So If It's just 
making backups you are Interested 
In. there la no other product to 
beat III 



COMPLETE 



CABLE 
ONLY 



£14.99 




ROBOTEK 64 

MODEL A ROBOT CONTROL 
MADE EASY. 

_J 4 output channels • each with 
onboard relay. 

J 4 Input channels • each fully 
buffered TTL level sensing. 

J Analogue Input with full 8 bit 
conversion. 

Voice Input for voice control. 
_J Software features:- test mode/ 
analogue measurement /voice 
activate/digital readout etc. 

only £39.99 

INCLUDING HARDWARE/SOFTWARE/ 
MIC. ETC, (STATE TAPE OR DISK). 




TOOLKIT IV 




THE ULTIMATE DISK TOOLKIT FOR THE 1540/1541. 

_J A disk toolkit Is an absolute rnusl _J FAST DISK COPY - Copy sn entire 

dlak in 3 minutee or less using 
single 1541. 



□ 



A disk toolkit li so sbsolute rnusl 
for the serious disk backer. Toolkit 
IV has more features than most for 
teas. 

DISC DOCTOR V3 - Read fit write 
any track ft sector Including extra 
fit renumbered tracks. Repair 
damaged sectors. Look underneath 
read errors. 

HEADER/ GAP EDITOR • Decodes ft 
displays ALL header Information 
Including off bytes ft hesder gap. 
Rewrite the entire header ft header 
gap. Renumber sectors. Also edit 
any sector tall gap. 

DISK LOOK • Sort directory. 
Recover lost flies. Display file start 
/end addresses. Disassemble any die 
program directly from the dlak to 
SCREEN or PRINTER including 
undocumented opcodes. Edit Bam. 

FILE COMPACTOR - Can compact 
machine programs by up to 50%. 
Save disk space. Compscted 
programs run as normal. 



J FAST FILE COPY • Selective file 
copy. Worka at up to S times 
normal speed 



FORMATTER - 10 aecond format sn 
entire disk or format any Individual 
track or halftrack 0 to 41. Re-deflne 
any of 30 parameters to create or 
recreste unique disk formate. 



□ ERROR EDIT - Quickly find ft 
recreate all read errors Including 
extras ft renumbered tracks or 
sectors ft half cracks from 0 to 41. 
Even recreates data under errors ft 
allows you to redefine any 
necessary parameters. 



ONLY 



£9.99 
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The moil effective tape to tape 
back-up board available. 
Makes perfect backups of your tapes 
easily A effectively!! 
No user knowledge needed at all. 
J On board TTL logic circuitry 
actually shapes the program A 
sends a perfect signal (o the record 
cassette - producing a copy better 
_ than the orlglonal In many cases. 
_| L.E.D. Indicator shows when data 
Is being transferred to avoid 
exeselve tape winding. 
_J Works with almost any program 
Including multi-loaders, turbos a 
even very unusual type turbos. 
_| Requires access to two CBM 

compatible data recorders. 
Q Simply press 'Play" on one recorder 
ft press 'Record' on the other - 
that's It! 

Q You can even make a backup while 
you are loading the program. 

. J This Is a total hardware solution - 
no programs to load - the results 
are stunning! 



TURBO ROM II IS A 
REPLACEMENT FOR THE 
ACTUAL KERNAL INSIDE 
YOUR 64. IT PROVIDES 
SUPERFAST LOAD/SAVE 
ROUTINES. 

rj Loads most programs at 5-6 times 

normal speed. 
J Saves at 5-6 times normal speed as 

weU. 

_J Improved D08 support including 

10 sec. format. 
J Programed function keys:- load, 

directory, old. etc. 
_J Return to normal kernel at a flick 

of a switch. 
_] FCOPY-250 block (lie copier. 
□ P LOAD special I/O loader. 
_J Plus lots more. 

_J Fitted In minutes - no soldering 
usual 11 y required. (On some 64's 
the old ROM may have to be 
desoldered). 



— SMART CART 



EPROMMER 64 



ONLY 



£9.99 



ONLY 



£14.99 
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^ External power supply for cool 
operation. 

Q Even works in 1571 double sided 
mode (126 mode). 

Q fully C64/126 compatible. 
J This drive is now probably the most 
compatible drive available far the 
Commodore. More so than even 
Commodores own '1541C- 

! J Supplied complete with all cables - 
no more to buy. 

_J At last, a top quality drive at a 
sensible price. 



£129.99 



ONLY 



ADD C5.0O FOR COURIER DELIVERY 



ULTRA CRUNCHER FAST HACK EM 



TM 



_J The ultimate cartridge based 

program compactor. 
J Compacts by up to 30%! 
J 3 compacting programs on one 

cartridge. 
[I Past loading/ saving routines. 
J Pull DOS support Including fast 
format. 

ONLY £1 2*99 cartridge 

Available a* chip only for 256 K 
Superom Board lor 



ONLY 



£7.99 



_| Multl Module Disk Nlbfaler • all on 
one dlafc. 

J Single 1541 Nibble r • Copy a disk In 

2 minutes. 
J Super fast File Copy - under 9 

seconds typically. 
J Plus unique 'Parameters" mode. 
These files "unlock" the more 
heavily protected programs with a 
parameter for a particular brand or 
even single program. 
_J No other product is such a good "All 
Rounder" at this 



ONLY 



ler" at this price. . 

£9.99 



_) 32K pseudo ROY- 

l_| Lithium battery last* up to 5 years. 

□ Simply load the program you require 
- then flick the switch. The cartridge 
can then be removed Just tike a 
ROM cartridge. 

_i Make your own cartridges Including 
autostart types - without EPROM 
burner. 32K version >4i8K pages. 

I _j Some knowledge of M/C la helpful ■ 
but full Instructions Included. 

□ I/O 2 slot open far special 
programing techniques. 



□ 
J 



ONLY 



£29.99 



RAM DISK 

□ 

□ 



ONLY 



Turn your Smart Cart Into a 32K 
Ram/disk. 

32K of Instant storage area for 
fl I es / p r ogr ami . 

Disk type commands:- load, save, 
directory, scratch. 
Program data retained when 
computer la switched off! 
Pull command set with Instructions. 



£9.99 



A top quality, easy-to-use EPROM 
programer for the 64/128, 

Fully menu driven software/ 
hardware package makes 
programing / re a di ng/ v r rifying / 
copying EPROMs simplicity Itself. 

_] Will program 2716, 2764, 2712S A 
27256 chips. 12.5. 21 or 26 volta. 

_J Fits Into user port for maximum 
compatibility with cartridges/ 
Superom Board etc. 

Full feature system - all functions 
covered like device check/verify. 

J We believe Eprommer 64 Is the moat 
comprehensive, most friendly A best 
value for money programer available 
for the 64/126. 

_] Ideal companion for Superom Board. 
Cartridge Development System, our 
kemal expanders or Indeed any 
EPROM base project. 

□ Comes complete with Instructions - 
plus the cartridge handbook. 

only £39.99 

COMPLETE 



ROBOTARM 



□ 



j 



j 



F.iplore the facinatlng science of 
Robotics with this full feature 
RobotArm. 

Human like dexterity - with 5 axis 
of movement it Is so versatile. It 
can manipulate small objects with 
amazing ability. 

Comes with Acceeorles Including 
'Finger 1 Jaws, Magnetic Attachment, 
Shovel Scoop, 4 Stab Uli in g Suction 
Legs. etc. 



^ Easily controlled using 2 Joysticks 
(any B pin type) or connected to 
your computer with our Interface/ 
Software to give Computer/Robotic 
control (see Interface Offer). 

□ Uses 4 HP2 batteries (not supplied) 
to power motor movement so uses 
no computer power. 

J Self contained, ready to use (except 
batteries. Joysticks). 



ONLY 



£49.99 



INTERFACE OFFER 

_J Unique Software /Hardware package 
to allow you to Interlace your 
computer with the Robotarm. 

_J Train mode allows you to store A 
then repeat movement sequences. 



1_J Very easy to use. 

[J This Interface isn't needed to use the 
Robotarm but Interfacing with your 
computer has great possibilities. 

only £24.99 

COMPLETE WITH CABLES 



ALL ORDERS NORMALLY DESPATCHED WITHIN 48 HRS 

HOW TO ORDER . . , 



BY PHONE 

0782 744707 
24hr Credit 
Card Line 



BY POST 



El 



Send cheques /POs made 
payable to "Datel 
Electronics" 



FAX 

0782 744292 

UK ORDERS POST FREE 
EUROPE ADD £1 
OVERSEAS ADD £3 



PRICES AND SPECIFICATIONS CORRECT AT TIME OF PRESS 
AND SUBJECT TO CHANGE WITHOUT NOTICE 



CALLERS WELCOME - Please reserve goods by telephone prior to visit. 



dAtel 

ELEC7i?.Ofl!CS- 



DATEL ELECTRONICS LTD.. FENTON INDUSTRIAL ESTATE 
GOVAN ROAD. FENTON. STOKE-ON-TRENT. ENGLAND. 



SALES ONLY 

0782 744707 



TECHNICAL ONLY 

0782 744324 
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• Operation Wolf 


28 


i oet Detter grapnics Irom your commodore 




Arcade action 




• Thmidpy Blndp 
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• Pilot 


36 


You and vour heliconter against the wnrlri 




A programmer's language 


• Microprose Soccer 


20 




A game of two halves 




• Tank Attack 


38 


• Pac Mania 


25 


An unusual new war game 




Latest variation on the Parman fhpmp 




• Pmi^py Ptftv U t>\i 

• * VU/CW 1 If* V MMULfCcy 




• TKO 


26 


A tough new ice hockey game 




An exciting new boxing simulation 




• Introduction to Graphics 




• Risk 


27 


on the C64 


45 1 


A new version of the classic boardgame 




Discover the graphics potential of the C64 





| REGULARS 1 


• Data Statements 

More news from the world of Commodore 


6 


• Relative File Programming 

Some more expert filing advice 


50 


• A Flow of Ideas 

More about flowcharts 


21 


• Letters 

Long live the C 128 


51 


• Software Spellbook 

The mysteries of machine code 


23 


• Routine Matters 

Expanding your library of handy routines 


52 


• Extending Basic 

Adding commands to your C64 


29 


• First Steps 

Error messages on the C16, C128 and Plus 4 


54 


• Games Update 

The latest games for the C64 and 128 


33 


• Contributions 

How to write for Your Commodore 


55 


• Technical Troubles 

Our technical agony aunt 


40 


• Back Page 

Corrections, info and 'The Nibbles' 


90 



| PROGRAMS | 


• Letter Writer 14 

Perfect printed letters without a wordprocessor 


• Personal File 

Avoid time-consuming editing procedures 


44 


• Basic Workshop 32 

A new program to help you avoid typing all 
keywords 


• Electronic Notebook 

A personal diary on disk 


56 


• Sprite Library 42 

More tips on sprite manipulation 


• Head for Home 

Boardgame fun for the C16 


57 
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Radio I Jock, Bruno Brooks (left), does the Commodore Show 
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ABC 



Rl DJ Meets CBM 



Radio 1 disk jockey 
Bruno Brooks was 
given the works at the 
Commodore Christmas 
Show - in more than one 
sense. Apart from being 
given VIP treatment from 
Commodore boss Steve 
Franklin, Bruno was also 
presented with a copy of The 
Works by Brown and Wagh 
Direct 1 * MD, Jim Housego. 



Of special interest to the 
Amiga-owning DJ was the 
many music exhibits. Nigel 
Jones, Commodore's answer 
to Stock, Aitken and 
Waterman, put the MIDI- 
linked computer through its 
paces. 

Who knows, maybe 
some of the jingles on Radio 
I may be Amiga assisted in 
the future. 



Daisies For Epson 



Printer manufacturers, 
Epson, have started the 
New year by relocating all 
the way to Heme! Hemp- 
stead from their Wembley 
offices. 

The printing company's 
new address is Epson (UK), 
Ltd. Campus 100, Maylands 
Avenue, Hemel Hempstead, 
Herts HP2 7EZ. Tel: (0442) 
61144. 
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CBM Roadshow 



Commodore are going to 
school during the early 
part of this year as their 
education team hits the 
road. An initial trial was 
made by holding an 
exhibition at Middlesex 
Polytechnic's Bounds Green 
site, and it proved that there 
was sufficient interest from 



educationailists to give the 
green light to the roadshow. 

At the polytechnic, the 
Amiga and PC were put 
through their paces, and the 
new Acorn BBC emulator 
aroused a lot of interest as 
a possible bridge to the 
current machines possessed 
by schools. 

Dates and venues for the 
roadshow have vet to be 



announced, but Peter 
Talbot, Commodore's 
National Sales Manager for 
Education, has high hopes - 
"1 was delighted both with 
the turnout and the calibre 
of people attending our 
show. This is definitely going 
to become an annual event. 

"Our 1988 education 
initiative has seen 
Commodore making major 



inroads on the education 
market, and 1989 will be 
even better.* 

Touchline: CBM (UK) Ltd. 
Commodore House, The 
Switchback, Gardner Road. 
Maidenhead. Berks SL6 
7XA. 



Commodore's Fiona Grahamslaw 
at the Computers in Education 



Exhibition 




Commodore 

COMMITTED TO EDUCATION 




Sexist Software 



OASIS is an organisation 
with a mission - to save 
the fair sex from the unfair 
sex in the computer world. 
Sandra Vogel feels that 
women get a raw deal when 
it comes to the advertising 
and content of computer 
games, and has formed the 
Organisation Against 
Sexism in Software to bring 
pressure to bear on the 
offending software houses. 

This industry has no real 
watchdog to ensure that a 
standard of moral values is 
maintained, and this latest 
move has been made in 



response to the 
unfavourable portrayal of 
women. According to 
OASIS, women are mainly 
portrayed either as busty 
bimbos, or else weak 
creatures who must be 
rescued from perilous 
situations by macho heroes. 
More than this, too much 
software is produced to 
appeal to the male ego, 
limiting the encouragement 
of female participation. 

Although computer 
gameplaying is still very 
much a male preserve, the 
number of female computer 



enthusiasts is growing. 
Sandra does not expect 
special status to be given to 
women. merely an 
acceptance that they do exist 
by avoidance of the standard 
male/female stereotypes in 
advertising, and gender 
determination in suitable 
games. 

OASIS already has an 
active membership, but is 
eager to recruit any Tom, 
Dick or Harriet who 
sympathises with the cause. 
An anual subscription costs 
£3, and includes six issues of 
the organisation's bi- 



monthly magazine. 

One example of sexism 
which is heavily criticised in 
the first issue of the OASIS 
magazine is Palace 
Software's Barbarian 
promotion, which features 
the pneumatic charms of 
Maria Whittaker. Is it 
sexploitation, or merely a 
storm in a D-cup? 



Touchline: OASIS, Sandra 
Vogel, 3 A /den Court, 
Stanley Road. Hibledon, 
London SWI9 8RD. 
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Tower of Power 




lV/f^S Industries UK has 
iTXunvcilcd its new PC 

Trolley, but owners of 
Com mod re computers 
shouldn't be put off by the 



Summit For 
Nothing 



Summit Software ran a 
competition last 
summer, and the prize of a 
collection of mint condition, 
pre-decimalisation coins was 
recently awarded to Alan 
Clark from Camberwell. 

The competition was 
set to mark the launch of the 
Summit label by Alternative 
Software boss Roger Hulley. 
Based on the fiscal theme of 
the game Sum-it, which was 
devised by Roger's father in 
the Thirties, the competitors 
had to convert the £2.99 
price of Summit titles into 
old LSD currency. Alan was 
the sender of the first correct 
entry picked from the hat 
and cashed in on the prize. 

Two forthcoming 
releases from Summit are 
Johnson Scanatron's The 
Double (now Goliath 
Games) and Database's 
Mini Office. Summit's full- 
price sister label. Again 
Again, has released a game 
based on last year's trouble 
in the Arabian Gulf. 
Operation H or mux, 
programmed by Durrell, 
costs £9.99 on the C64 T but 
the Amiga version won't 
follow until later this year. 

Touchline: Summit 
Software, Units 3-6, 
Baileygate Industrial Estate, 
Pontefract, West Yorks 
WF8 2LN. Tel: (0977) 
797777. 



title, because an Amiga or 
its ancestors would look just 
as smart. 

The trolley is supplied 
with a four-way power 
board, and is designed so 
that it can be pulled over any 
standard height desk or 
table. The range of finishes 
available are light grey 
laminte. decorative teak or 
an appetizing bitter 
chocolate. 

Touchline: AIDS Industries 
(UK) Ltd, Factory No I. 
Ebherns Road, Hemel 
Hempstead, Herts HPS 
9QS. Tel (0442) 23105. 



Seikosha Assault 



Following a £2.5 million 
investment, Seikosha 
UK plans a three year push 
to become one of the top 
printer manufacturers in 
Britain. 

Seasoned Commodore 
owners mav remember that 
the CBM VICI525 printer 
was a thinly disguised 
Seikosha machine, but since 
those dim and distant days 
Seikosha has entered the 
new age of technology. Last 
year saw the release of the 
heavy duty SBPIO printer, 
which reached the heady 
speed of 800cps. making it 
the fastest dot matrix printer 
currently available. 

1989 sees the start of the 
market assault with the 



Artful Clues 



Electronic Arts has 
published a series of 
detailed clue books for its 
ever-growing range of 
roleplaying adventures. 
Deathlord, Wasteland, The 
Mars Saga, and Bards Tale 
I. II. and /// players can buy 
the books from EA's 
Customer Services 
department for £5 each. 
Touchline: Electronic A Rts, 
Customer Services, Langley 
Business Centre. 11-49 
Station Road, Langley, 
Slough. Berks SL3 8 YN. Tel 
(0753) 46465. 



launch of a LED printer. 
OP-I05A. as an alternative 
to the Laser technology 
favoured by other 
companies. This will be 
supplemented by the release 
of two new printers later in 
the year. 

The announcement 
coincides with the opening 
of the company's new 
factory in Hamburg, which 
follows the example set by 
Star and Epson to avoid the 
printer tariffs imposed by 
the European Community. 

Touchline: Seikosha (UK) 
Ltd, Unit 14, Poyle 14, 
Newlands Drive, 
Colnbrook, Slough, 
Berkshire SU ODX, 




Seikosha's new, compact LED 



Active Signings 



A division has signed two 
new labels and a 
development house as part 
of its continuing search for 
new talent. The development 
house. New Frontier 
Productions, is the latest 
venture for David 
Crosweller, who previously 
headed Infogrames in 
Britain. The deal promises a 
steady How of games over 
the next two years, 
commencing in late summer. 

The first of the new labels 
is a group of programmers 
who are all known to 
Activision through their 
mutual links with System 3. 
Vivid Images consists of 
Last Ninja and Ikari 
Warriors programmer John 
Twiddy, graphic artists 
Hugh Riley, and Mev Dine, 
whose credits include the 
conversion of Last Ninja 2 
to Z80 format. The new label 
gives the team a more 
positive profile, and will 
hopefully bring them the 
recognition they deserve. 

Motion Picture House is 
the second label, and will 
support individual authors 
and development houses. 
The label will also be used 
by the development team, 
which will be appointed to 
produce games for the 
Nintendo games machine. 

Rod Cousens, Vice- 
President of Activision 
Europe, comments. "David 
has pulled together a very 
talented team, and we look 
forward to seeing an 
exceptional product line-up 
from New Frontier. 

"The addition of Vivid 
Images Ltd and Motion 
Picture House to our group 
is further evidence of the 
great strides which we have 
made over the last year. We 
continue to attract and 
invest in new talent which, 
in turn, strengthens our 
position within the 
industry." 

Touchline: Activision (UK) 
Ltd, Blake House, Manor 
Farm Road. Reading, Berks 
RG2 OJN, Tel: (0734) 
311666. 
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DIMENSION 

computers Ltd. 



40/50 High Street 
Leicester LE1 5YN 
Tel: (0533) 
517479/21874 
THE MIDLAND'S LARGEST COMPUTER STORE 




AMIGA RANGE 



AMIGA B2000 PACK 

Amiga B2000 Computer, Commodore 
1084 Monitor. PC/XT Bridgeboard, 
20Mb Hard Disc £1,399.00 + VAT 



AMIGA A500 PACK 1 

with Mouse. Workbench. Basic and 



TV Modulator 



£359.00 



PHILLIPS B802 COLOUR MONITOR 
Including FREE Phillips TV Tuner ... 

Amiga B20OO Computer 

Commodore 1084 Colour Monitor ... 

Phfllipa B833 Colour Monitor 

Trilogic Audio Digitiser ._ 

AF880 IMD A500 3.5' E.ternal Dove 
CumanaiMD A5O0 3.5* External Drive 

Amiga Power Supply Unit 

internal A2000 2nd Drive 

Amiga Midi Interlace 

Dig <vie* Colour Digitisor ...... 

Supra 30Mb A500 Hard Disc . . 
2Mb Internal RAM Expansion . . 

PAL Genlock A5QO/A20OD 

A50O 512K RAM Upgrade .... 
Future Sound Digitisor. including 
microphone 



£224.95 
C 1.079.00 
£269.95 
£224.95 
£27.95 
£89.95 
£99.95 
£59.95 
E79.95 
£34.95 
£139.95 
. £699.00 
£449.00 
£219 95 
£129 95 

£169.95 



AMIGA A500 plus 




PHILLIPS 8833 STEREO 




MONITOR 


£569.00 


AMIGA A500 plus 




COMMODORE 1084 MONITOR . 


£629.00 



AMIGA A500 PACK 2 

with Mouse. Workbench. Basic, 

TV Modulator. Formula 1, Footman. Viper. 

Mousetrap and Plutos £379.00 



AMIGA A500 PACK 3 

with Mouse. Workbench, Basic, Photon 
Paint, TV Modulator, plus SUPERBASE 
Database £399.00 



STAR LC10 COLOUR OOI MATRIX 




• 170 cps Draft 30cpsNLQ 




• 6 Resident Fonts and 6 Print Pilches 




• Draft and NLO in all Fonts and Colours 




• 7 Colours plus Multiple Shade Graphics 




Includes AMIGA Printer Lead 


£249.95 


PHOTON PAINT 




The AMIGA'S most powerful graphics pack .„, 


£69 95 



AMIGA SUPERBASE PERSONAL DATABASE 

> Extremely powerful yet easy to use 
• Flexible File Structure and Delmiiion 
■ Powerful Report Generator 



Over 150.000 users 



^5&*5- £39.95 



CBM64 YAMAHA PACK 

ComrnadoiB64 C2N Data Recorder 30Games Pack. 
Bush Walkman plus YAMAHA SHSiO MIDI COMPATIBLE 
KEYBOARD £199.95 



CBM 64 OLYMPIC PACK 

Commodore 64. C2N Daia Recorder. Quickshol 2 Joystick, 
to Sports Games plus 25 Arcade Games . £149 95 



CBM64 HOLLYWOOD PACK 

Commodore 64 C2N Oala Recorder. Quicksnot 2 Joystick. 
5 Hollywood Games. 5 TV Qui; Games, plus 25 Arcade 
Games £149.95 



PRINTLINK 

Allows AMIGA to use CBM Serial or Standard Centronics 
Printers, with the Bonus d' a 60K Butter , 

CBM Serial only £34 95 

CBM Senal plus Use* Port to Centronics . £44.95 



PRINTER RIBBON OFFER 

MPS BOl. 802. Citizen 120Dand 

Star NL10 Ribbons , 

MPS 803 & MPS 1000 ., 

DPS 1101 Mull) Strike 

BUY FOUR AND GET ONE FREE! 



£5.95 
£4.95 
£350 



STAR LC10 DOT MATRIX PRINTER 

- l20cpsOral1.30cpsNLO 

• Piction and Tractor Feed 

• Paper Parking Facility 

• 6 Resident Fonts and 6 DHtereni Print Pitches 
Selectable from Front Mode Select Panel 
Commndoic Serial or Centronics . , 
Commodon? 64028 Colour Version 



LIMITED OFFER 

COMMODORE 1531 35* DISC DRIVE 



.DBMS" £139.95 



£214.95 
£249.95 



THE NEW 1541 II DISC DRIVE 

OCEANIC OC118N 

Commodore Compatible Disc Drive 
Both include 
Software Pack 

12 Selected Disc-Based Games'Ui'Mies 



£169.95 
£129.95 



SUPER G 

CBMloCeniromcsPriniBrlriterlace 

MPS 003 TRACTOR fEED UNIT 
C6M64 256K UPGRADE 

COMPOSER' EDITOR SOFTWARE 

Fo' Music Eipansion System, 'ape or Disc 

ACTION REPLAY Mk 5 PRO 

Tape to Disc Back up Cartridge 

NEOS MOUSE 

Willi CHEESE Software. Tape oi Disc 
COMMOOORE C2NOATA RECORDER 



£34.95 
E29.95 
£129 95 

E24.95 

£34.95 

£74 95 
£29.95 



REMARKABLE COMMODORE PC1 OFFER 

Unbealably priced PC/XT compatible, including extremely 
compact base unit, detachable keyboard and monitor. 
Compatible with all maior PC/XT software, the PCi now 
represents (he lowest price tor specification PC compatible 
In the UK 

■ 808B/4 77MH? Processor 

• 512KHAM 

• Serial and Parallel Ports 

• MSDOS 3 7 and GW Basic included 

For a limited period, the PCI also includes ABLE ONE 
Integrated Spreadsheet. Wordprocessor and Dalabase 
package (usual price £113 001 

PCI with Mono Monilor 

PCI wilhCGA Colour Monitor 
PCI Package without Monitor 
Compatible wilh CBM 1084 and most 
CGA'Hercules monitors , 



E2M 99 
£449 00 



VAT 
VAT 



£269.00 - VAT 



CITIZEN 1200 DOT MATRIX PRINTER 




Commodore version 




(with 64/12B Printer lead) 


£139 95 


Centronics veision 




(with AMIGA Prinler Lead > .... 


E139.95 


Commodore 1901 Colour Monitor 


E219 95 


Philips 64/128 Green Screen Monilor 


£89.95 


MPS 1200P Dot Malnx Printer. Centronics 


E219.95 


MPS 1500C 7 Colour Dot Matrix. Centronics 


£339.95 


1581 3;" Disc Drive including 10x3.'* Discs 


£199.95 



PRECISION 

Superscript £24.95 

Superbase64 . i. £24.95 

Superscript 64 

& Superbase 64 £44.95 

Superscript 128 £29.95 

Supfirbase t?B . ... , £29.95 

Superscript 128 

4 Superbase 128 E54.95 

Superbase. The Book . £11.95 

DEOS Version 1.3 

CBM 64/128 Operating System 

Including; Desktop, Geownte. Geopaini. and Desk Accessories. 
Disc 

CBM 64 £26.95 

CBM 128 £34.95 

COMMOOORE 1351 MOUSE 

Compatible with GEOS plus all GEOS Utilities. 

Can also be used as Joystick £27.95 

GEODEX/OESXPACK £21.95 

GEOCALC Spreadsheet £24.95 

GEOCALC 128 E34.95 

GEOPUBLISH Desktop Publisher £34.95 

WRITERS WORKSHOP £21.95 

WRITERS WORKSHOP 128 £34.95 

FONT PACK 1 £16.95 

GEOFlLt Database £24.95 

GEOFILE 128 £34.95 

GEOSPELLSpellcheker £16.95 

I CONTROLLER' 

Geos-compalible Joystick Fits onto keyboard £12.95 
'FREE OF CHARGE WITH PURCHASES OF TWO OR MORE 
GEOS PACKAGES 

CBM 64 128 and PLUS 4 COMPANIES PACK 

Sales/Purchase' Nominal ledgers with Invoicing and 

Stock Control Disc £24 95 



r 



~l 



PERSONAL CALLERS AND EXPORT ENQUIRIES WELCOME 

ALL OFFERS STRICTLY SUBJECT TO AVAILABILITY 

ALL PRICES SUBJECT TO CHANGE WITHOUT NOTICE 

ALL PRICES INCLUDE VAT UNLESS OTHERWISE STATED 

To Order e>lne> send cheque /P O wrth coooon o» nng <0533| 517479/21874 witti 

Access Ba'claycard number Please allow 7 working days tc delivery from receipt of order Or 

cheque clearance 

Please add C ' DO towards carnage and patting on any software order. 
Hardware orders add C 1 00 under ( 65 00 value and C5 00 over C65 00 value 
Pnnlf irdeis add C5 00 lowards carnage 

Send lo; Dept. No. YC 3. Dimension Computers Ltd., IpV 
40/50 High Street. Leicester LE 1 5YN tiJ 

Tfll fOKWi M747q/?1fl74 Fa* fOfttat 511fi.1R 



Item 


Quantity 


Price 






Total 





Name 

Address. 
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Graphics 
Guide 



What are graphics all 
about, and what do you 
need to get the best 
from your computer? 

By Kerry Fowler 

A stunning graphic display is one 
of the most difficult effects to 
utilise effectively. This is 
especially true of the C64, but even 
the extended Basics of the C128, C16 
and Plus 4 don't solve the problems 
totally. To get the best effects, 
commercial graphics programs are 
essential, and then (he decision is 
which input device to use: keyboard, 
joystick, mouse, lightpen or graphics 
pad. 

One of the strongest features of 
Commodore computers is their 
graphics capabilities. Sprites, 
characters and high resolution (hi-res), 
combined with a fairly wide range of 
colours, can add impact to games and 
utilities. 

Hi-res graphics are generally 
supported by most of the available 
packages, but sprite designers and 
character defines are few and far 
between. This is true to such an extent 
that when a well-known programmer, 
Tony Crowther, published his own 
sprite and character defining routines 
in Your Commodore (3 in 1 Editor, 
August 86), the magazine had many 





enquiries from professional software 
houses who wished to use the program 
to design their own screens. This led 
to an updated version being created 
for our sister magazine. Commodore 
Disk UserO in 1 Plus, Nov/ Dec *87). 

User-defined Characters 

Character graphics involves the 
redefinition of the standard 
character set of the Commodore. The 
standard graphics are the letters and 
characters featured on the keyboard, 
and they are all based upon an 8x8 
grid of pixels. A pixel is the smallest 
unit of a computer screen display - 
it's a single point of light which can 
be variously coloured to give the effect 
desired. 

Each pixel on a grid can be 
switched on or off. For example, to 
produce the letter 'A*, a character grid 
would take the formation shown in 
Figure I. The problem is that a 
Commodore video chip can only 
access 16K blocks of memory, as 
shown in the sample C64 Bank in 
Table I. This means that the screen, 
positioned at location 1024, can only 



grab its characters from locations 0 
through to 16383. The computer 
circumvents this limitation by 
hardware trickery, but the rule is one 
which can never be broken by the 
programmer. 

With the screen at 1024, the 
problem is that a Basic program uses 
the memory on either side of the screen 
- below the screen is the workspace 
for the ROM routine's variables and 
above it is Basic RAM for the program 
itself. This leaves very little space for 
any user defined graphics (UDGs), let 
alone sprites! 

There are two solutions to this 
problem; the start of Basic memory 
can be moved up, or the screen itself 
can be placed in one of the other I6K 
blocks of memory. The authoritative 
guide to these methods is the relevant 
Programmer's Reference Guide from 
Commodore. 

Mighty Sprites 

Sprites are like small independent 
screens which can only display 
three extended characters measuring 
8x21 pixels. If a sprite pixel is not 
turned on, the pixel becomes 
transparent and any characters behind 
the sprite will show through, but if the 
pixel is turned on, the sprite masks 
the background detail. 

For some reason. Commodore 
decided not to implement sprites on 
the C 16/ Plus 4, which probably helped 
to add to the machines' downfall, 
because many of the programs written 
for the C64 involved sprites and 
couldn't easily be transferred to the 
newer computers. 

Characters and sprites can be 
displayed as a single coloured sprite 
or multicoloured. Single-coloured or 
standard mode means that all of the 
turned on pixels are displayed in the 
same selected foreground colour, 
though this can vary from one 
character to the next. Multicolour is 
a slight misnoma, but it docs allow 
three colours to be used. 



TABLE i: 






Table 1: C64 Banks for the VIC 




Decimal 


Hex 


Bank Number 


49152-65535 


C000-FFFF 


3 


32768-49151 


8000-BFFF 


2 


16384-32767 


4000-7FFF 


1 


0-16383 


0000-3 FFF 


0 
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As with standard mode, the 
foreground colour can be different for 
each individual character or sprite, but 
is the same throughout that particular 
character. The two extra colours are 
the same for all of the characters on 
the screen. Although sprites follow the 
same rule, their extra colours are taken 
from different memory locations, 
which means that the two ancilliary 
colours may be the same for all of the 
sprites, but can differ from the 
background characters. 

The only problem with multicolour 
is that character definition falls to 4x8 
pixels and 12x21 pixels for sprites. This 
means that the fine detail is not as good 
as for standard mode, and multicolour 
characters always have a jagged-edged 
appearance. 



Higher Resolution? 

TTigh resolution is a misleading 
JTlname, because the total number 
of screen pixels is the same as in 
standard low-resolution mode. The 
difference lies in the freedom which 
hi-res gives the user. 



Hi-res graphics work on a similar 
principal to character graphics, and 
this is an important point to bear in 
mind when designing a screen display 
in this mode. Up to 256 UDGs can 
be defined in low resolution. At best, 
these would cover about a quarter of 
the screen if they were laid end to end, 
row by row. Hi-res allows a screenful 
of 1000 different characters to be 
defined. 

The equivalent situation using 
UDGs, would mean reducing the 
screen to a 16x16 redefinable grid of 
characters, because each of the 256 
characters can only be defined once. 
This gives a pixel resolution of 
128x128 instead of the full screen 
resolution of 640x200 pixels hence 
the justification of calling it high- 
resolution. 

Each character on a hi-res screen 
has a fixed position, but the rules of 
UDG defining applies. This is 
especially notable in multicolour 
mode, because each 8x8 character area 
can only hold a maximum of three 
colours. The extra colour facilities of 
hi-res does mean that neighbouring 




characters can have three different 
multicolours, but the 8x8 pixel grid 
governs what can be done. 

Pack Selection 

There have been many graphics 
packs for designing hi-res images, 
but I don't know of any currently 
available packages for sprite or 
character definition which offer good 
value for money. 

Trilogic's Expert cartridge system 
does have a sprite designer included 
in the package, but if this is the only 
facility which is of interest, then the 
price of £29.99 is a rather high one 
to pay. The best course of action is 
lo check Your Commodore, and to 
look for the numerous sprite and 
character defining programs which 
crop up from time to time. 

Hi-res packages are shown in the 
Touchline at the end of this article and 
typical features would include 
freehand drawing, filled and outlined 
shapes (principally circles and 
rectangles), single and connected lines, 
text mode, spray fill, solid fill, a range 
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of brush sizes, and zoom for closing 
in lo udd fine detail. 

There are additional desirable 
features such as windowing. This is the 
ability to select an area of the screen 
and repeat it elsewhere. This saves the 
need lo redraw similar characters, 
because it can be 'grabbed', moved and 
then modified using the zoom facility. 
To get the best from the graphics 
screen, a pattern fill routine of some 
kind can create convincing shading 
effects to add an extra dimension to 
otherwise 2D images. Patterning can 
also take the drudgery out of creating 
repetitive shapes such as the bricks in 
a wall or wallpaper. 

A vital feature is usually called 
UNDO. This is most desirable when 
a FILL command goes wrong. 
Without UNDO, the image could be 
ruined beyond repair, with UNDO a 
press of a button can restore the image 
to its original state. 

To fully utilise an image created 
by a graphics package, the user needs 
lo know where the various elements 
are stored. Since this is rarely in the 
normal screen position ( 1024), it is also 
necessary to understand screen 
banking, so a good graphics book is 
essential. For hi-res. the Programmer's 
Reference Guide is not very useful, but 
there are many guides available in 
good bookshops - just check the index 
for a reference to banking, screen 
moving or something similar. 

Graphic Aids 

For most people, the cheapest tool 
for graphics is the joystick because 
it can be used for graphics or 
gameplaying. My own preference is a 
mouse, because it can be more easily 
operated with one hand. Even if this 
only means that the other hand is free 
to hold a cup of coffee, I find the use 
of a mouse more relaxing. 

Keyboard control is another 
consideration, and sometimes offers 
the most accurate control system. 
Unless you are a louch typist, the 
problem is that it is tedious to watch 
the keyboard with one eye, and the 
screen with the other. 

Several packages offer lightpens as 
input devices. In my experience, these 
are wonderful devices which most 
closely relate to drawing on paper, but 
control lacks the accuracy of joysticks 
and mice. The problem lies in the 
manner in which these devices work. 

When a television or monitor 
draws a screen, the image is created 
by a stream of electrons being scanned 



across the lines of a screen. When an 
electron hits the phosphor coated 
screen energy is dissipated in the form 
of light. The greater the number of 
collisions, the brighter the light given 
off. 

The electron gun therefore varies 
the number of electrons aimed at any 
point on the screen to create the light 
and dark areas of the image. In colour 
monitors, there are at least three guns 
which represent the primary colours 
which can be mixed to create the full 
range of hues and tints which makes 
up a colour image. 

Each gun starts at the top left of 
the screen, and scans across the top 
line. Then it flies back to the left side 
of the next line and scans the next row. 
This continues until the bottom line 
is reached and completed, then the 
guns are all redirected back to the top 
left of the screen, and the process starts 
again. 

Each point on the phosphor screen 
acts like a red-hot poker which has 
just been removed from the fire, it 
fades. The fade actually only takes a 
very tiny fraction of a second, and the 
first dot may be extinguished before 
the scan reaches the bottom line, but 
the whole process is so rapid that the 
eye cannot perceive this. 

A computer initiates the screen 
scan, and can calculate where the guns 
are pointing at any particular time. If 
a light sensor is placed in front of the 
screen, it can calculate when the 
phosphor area in front of it is excited 
by registering the light that bursts 
forth. The computer can then calculate 
the time delay between triggering the 
screen scan, and the light sensor 
detecting the effect of the guns passing 
a particular spot. This allows a pixel 
in the computer's memory to be 
selected and operated on, according to 
the dictates of the software running 
at that time. 

The problem is in getting pixel 
accuracy. Some software is severely 
affected by interrupts which can delay 
reading of the lightpen sufficiently to 
displace the perceived position of the 
pen, once the calculation has been 
done. This normally manifests itself 
as a twitching of the cursor on the 
display screen, or a line becoming 
broken or kinked as the pen is moved 
across the screen. 

Graphic pads work on a different 
system. Imagine a crisscross grid of 
wires which are embedded in a plastic 
medium. The warp and weft of the grid 
is separated by a fraction of a 



millimetre, so that slight pressure will 
connect the two wires. The net effect 
is one of a thousand tiny switches which 
correspond to each pixel on the screen. 
This is analogous to the situation 
inside a graphics pad. 

Once the signal is generated, 
internal electronics calculate which 
switch is operating, and sends the 
information to the computer, which 
then acts accordingly. The problem 
with a pad is that sometimes the point 
of the stylus is equidistant between two 
switches, and both arc triggered. 
Usually the internal electronics will 
make an executive decision but 
sometimes one of the switches may 
constantly make and break and the 
screen cursor dances back and forth 
in sympathy. 

On the subject of pads, most 
software is produced for the Kuala 
Pad, which is still available in the 
States, but try getting one over here! 
It's impossible. Microprose market 
Suncom's misleadingly named 
Animation Station, which looks 
similar to the Koala but is totally 
incompatible with Koala software 
(based on experiments with Rainbird's 
OCP Studio). Fortunately, it does 
come with its own software (a pad- 
only version of Blazing Paddles), 
which is fairly comprehensive and the 
package is highly recommended for 
those who would like to try a graphics 
pad. 

Whichever device is used, graphics 
are the root of all successful programs. 
Text is fine and may be essential but 
an illustrated manuscript is far more 
impressive than a paperback! 

Touchline: 

Blazing Paddles HI 2.99 Date! 
Electronics with lightpen £24.99 
Graphics Support Utilities Disk £12.99 
Date/ Electronics 

The A dvanced OCP A rt Studio £24.95 
Ra 'mbird Software 
Artist 64 £29.90 Wigmore House 
GEOS (Geowrite) Disk only £24.95 
Evesham Micros (free with Oceanic 
disk drive) 

NEOS Mouse £24.95 Dimension 
Computers 

Date! Mouse £24.99 Date! Electronics 
Animation Station £ Suncomf 
Microprose 

You may have noticed that these 
are all for the C64. GEOS 
incorporating GEOpaint is available 
for the CI 28 at £32.95, but there 
appears to be nothing for the C16/ 
Plus4. 



YOUR COMMODORE march 1989 
12 




FINANCIAL • SYSTEMS • SOFTWARE • LIMITED 



^ Award Maker Plus 

Honour and thank people with more than jusl kind words or a 
lelter-give them an award they'll keep for ever. With Award 
Maker Plus you create professional quality certificates with 
coloured or black, detailed borders, specialized graphics, and 
personalized messages, ready (or framing. 

Award Maker Plus is a software tool that lets you print awards, 
certificates, licenses, coupons, diplomas or other documents of 
your design. The program will print hundreds of predesigned 
Award Styles, allowing you to enter text, select the border style 
and colour, and in some styles even enter your own Hi-res 
pictures. Also, PrintShop graphics may be used as borders. The 
program comes complete with professional quality border 
designs, text fonts and graphic art. Only £24.95. 

t> 1764 RAM Expansion Unit 

The Commodore 1764 RAM Expansion Unit adds 256K of storage 
capacity lo the 64, four times the internal RAM. and comes with a 
replacement power supply to power both the computer and unit 
RAMDOS software is supplied free to allow commercial programs, 
written for the unit to use it as a second, lightning speed drive. 
The 1764 Unit is ideal for programmers, GEOS users and users who 
need a second drive. Only £99.95 

C> Paper Clip Publisher 

If you'd like to create eye-catching layouts, but don't enjoy 
playing with scissors and glue, Paper Clip Publisher has the 
solution This powerful page layout program for the Commodore 64 
lets you combine text from your favourite word processor and 
graphics from your favourite drawing program to create almost any 
layout you can think up. 

To place an article into your layout, simply draw a box and pour in 
the text Or draw several boxes and link them together, so the 
article is in several columns, or even on several pages. If you want 
the tert to stand out choose one of five fonts in any of four sizes. 
Then, give it some style-you can make it bold, italic, outlined, 
shadowed, reversed, or even upside down! Graphics are always a 
great way to get a readers attention PaperClip Publisher lets you 
use clip art from Doodle, Newsroom, Print Shop, Printmaster, and 
Stop Press. You can also create simple graphics in PaperClip 
Publisher's Graphics Editor. Once you've selected a graphic, 
simply pour it into your layout then enlarge or reduce it to fit your 
specific needs. 

PaperClip Publisher is a powerful layout tool but more important it 
is also easy to use. Your tools are displayed right on your screen- 
you simply point and click with your joystick or mouse. Other 

Sowerful commands are available in pull-down menus, so you don't 
ave to go searching through your manual lo find a command. 
Whether you are creating a single-page advertisement or a 
multiple-page newsletter, PaperClip Publisher will help you get the 
job done quickly and professionally. Only £34.95. 



[> BillBoard Maker 

Are you restricted by the normal one page graphics? Would you 
like lo be able to print posters four feet by three feet? Now you 
can, using BillBoard Maker, store the graphic to disk from any of 
the popular drawing packages and then load it back with BillBoard 
Maker The optimizer will enlarge the display and also remove any 
jagged edges and then you can flip, crop, cut mirror, strip colour, 
negative or frame the new image and then print it to your printer. 
Only £24.95. 

[> Photo Finish 

This is a NLQ program. Near Laser Quality. On your dot matrix 
prinlei you can printout graphics with quality approaching that of a 
laser printer. It uses an optimizer which automatically computes 
the amount of available space between diagonal pixels and fills 
them in with additional pixels, before it prints out your picture. As 
a result your picture is drawn with smooth curves and diagonals 
rather than jagged edges. You can take almost any Hi-res picture 
and produce 640' 400 resolution on almost any dot-matrix printer. 
This program is easily tested, print a picture and look at the 
curves made up of triangles, Photo Finish would round those 
edges. Only £24.95. 



> 64 PRODUCTS > 



^ Project Planner 

Too much to manage at once? Where do you begin? Need some 
help to organize your work? Could you be more efficient? With 
Project Planner you and your micro can cut any problem or task 
down to size, isolate key tasks, and anticipate problems you had 
not foreseen, judge the importance of conflicting priorities, and 
recognize critical elements in any plan, work out how long the 
project will take and where money and time can be saved, display 
your plan as a clear chart, then watch the effects when you modify 
and edit your plan. Only £14.95. 



C* ToyShop 

A balloon-powered steam engine, a medieval catapult an 
accurate sundial, an early carousel with horses, a clockwork bank 
that runs on pennies and a rubber band powered helicopter are 
just a selection of the 20 models which can be produced with the 
aid of your computer. Each of these toys is a marvel of 
engineering that you'll print out on ordinary computer paper and 
assemble yourself. ToyShop even includes a supply of card, wire, 
balloons, rubber bands and wood along with a comprehensive, 210 
page manual. Only £29.95. 

^ Fun Biorythms 

Print your own or a friends biorythms cycle in a chart form to 
printer. The cycle shows your physical, emotional and intellectual 
days over a set period. Only £4,95. 

^ Super Cat 

Super Cat allows you to catalogue your disk collection. You can 
catalogue up to 640 disks and 5000 titles per catalogue, then at the 
press of a key, search and find the location of that missing 
program. A variety of reports can be printed including programs 
alphabetical order, programs by disk, three types of disk labels 
and more. Super Cat will sort 1000 proqrams in just B seconds. 
Only £19.95. 

^ Super Aide 

All purpose utility program for the 64. Super Aide hides in 
memory in a safe, out of the way place, yet is immediately 
accessible at all times. Super Aide provides. Bi-directional screen 
scrolling, aulo line numbering, line deletion, renumber, trace, a 
monitor, disassembler, disk directory, display a file to screen, 
change this to that, find, unnew and more. Only £12.95. 

64 Doctor 

A professional diagnostic cartridge for the 64. It automatically 
tests and reports to screen the condition of the keyboard, serial 
and user ports, kemal ROM, video display chips, all video banks, 
NMI and IRQ interrupts, BASIC, CIA and sound chips. 64 Doctor 
comes with a free comprehensive fault and diagnosis and repair 
guide to allow you to repair the computer. Only £18.95. 

1541 Repair and Maintenance Guide 

The repair and maintenance book unveils the electronics and 
mechanics of the 1541 disk drive. The concise presentation of the 
material and introduction to digital electronics assures that even if 
you have no previous experience in electronics you can still repair 
your disk drive. Topics covered include general maintenance, 
speed adjustments, lubrication techniques, differences in drive 
versions, testing, adjust read/write head and more. An excellent 

Slide, and useful when aligning your drive. Large A4 format 
nly £12.95. a 



in 



•GEOS 64 £24.95 

DeskPack Plus 64 128 £21.95 

GEOSpell £16.95 

GEOProgrammer £32.95 

GEOFile 128 £32.95 

Official Programmers 

Guide £7.95 

Anatomy of the 1541 £4.95 

Graphics on the 64 £4.95 

Machine Language.... £4.95 

PrintShop £29.95 

Newsroom £24.95 

Super Pascal £14.95 

CADPAK 64 £24.95 



GEOS 128 £32.95 

FontPack Plus 64/128 £16.95 

GEOPublish £32.9S 

GEOCalc 128 £32.95 

Becker Basic £29.95 

Anatomy of the 64. £4.95 

Tricks and Tips 64 £4.95 

Ideas for your 64 £4.95 

Peeks and Pokes £4.95 

BOOClipArts „ £19.95 

Super C £29.95 

Cobol 64 M £29.95 

Chart Pack 64 £24.95 



Technique 
Basically Simple 
Comic Collector 
EasySign 
Label Maker 
PPM 64 

Pocket Planner 
Fontmaster 64 
Pocket Filer 
Pocket Writer 



Tutorial for programming graphics £4.95 

Learn how to program Basic £4.95 

Organize your collection of comics. £4.95 

Learn to use the sign language £4.95 

Print over 10 different labels £19.95 

Look after and follow shares £39.95 

Spreadsheet with sideways £39.95 

Word Processor with extra fonts ~..£34.9S 

Database with Report Writer £39.95 

Word Processor „ £39.95 



•Order with Access, VISA, Cheque or Postal Order, COD 
and Express delivery available, foreign orders add £2.50 
per package. Prices include VAT and postage. Please 
allow 14 days for delivery. 

Wtilities and Educational catalogue available -call (0386)553153 




VISA 



18 High Street-Pershore Worcs-WRIO IBG-Tel: (0386) 553153 



C64 PROGRAM 




Have you ever wanted to send 
someone a short letter that 
looked efficient? I'm sure 
many of us have sent one of those 
grovelling, pretty-please-type letters at 
some time or another. Well, the letter 
will look best if it's typewritten - after 
all, if your handwriting looks as 
though its been penned by a spider that 
spent the previous evening in a whisky 
bottle, you're not going to get very far, 
are you. 

This is where 'Letter Writer' comes 
to the rescue. It's not designed to be 
a wordprocessor program, it simply 
allows you to compose your letter 
quickly and then print out the finished 
masterpiece. One feature I'm sure users 
of 40 column wordprocessor programs 



will appreciate is the fact that the 
display is in 80 columns, and thus you 
can see each line on screen as it would 
appear on paper. 

Getting It All In 

TT'irslly, it's important to note that 
M? you must have a copy of the 
"ROM 80" program by Jens Meyer, 
which gives the C64 an 80-column 
screen display. This appeared in the 
January 1988 issue of Your Commo- 
dore. Also, note that both programs 
can be entered with or without the 
"ROM 80" program resident in 
memory. 

Type in Letter Writer and SAVE 
it to tape or disk, then type in Letter 



Printer, and SAVE it immediately 
after. I find it best to have the 
programs stored immediately after 
each other in the following order: 
ROM 80, Letter Writer, Letter Printer. 

Using the program 



If you haven't already done so, 
LOAD and RUN the ROM 80 
program. Next, LOAD and RUN 
Letter Writer 2. If all is well, youH 
see the following: at the top of the 
screen is a copyright message; below 
this, on the left, is a row and column 
count. Taking up the centre of the 
screen is a large box; this is the 
'window' though which you will see 
your text. At the bottom is the message 
'PRESS "CTRL" FOR HELP 
SCREEN'. 

Type something (apart from 
"CTRL") - you can enter anything 
except Commodore keyboard gra- 
phics, and the left and up-arrow keys. 
Notice that if you enter quotes, they 
don't appear, but an up-arrow does, 
this is because printing quotes can have 
a weird effect. Don't worry! The 
arrows are exchanged for quotes just 
before printing. 

N.B.: when you enter text, the 
program has to check a lot of things 
before it PRINTs each character, and 
these checks slow the program down 
a little. As a result, if you are a fast 
typist, you may notice that the screen 
display doesn't quite keep up with you. 
This shouldn't be a problem, as the 
characters are stored in the keyboard 
buffer. However, the buffer only holds 
ten characters, so if you type fast, some 
characters may be missed. The only 
solution, I'm afraid, is to slow down! 

Right: on with the show... pressing 
RETURN, or reaching the end of a 
line, will move the cursor to the 
beginning of the next line. Note that ! 
if there is any text on the next line, 
the cursor will move to the end of that 
text. Pressing DELETE will erase the 
character on the left of the cursor. If 
you are in the first column of a row, 
pressing DELETE will move the I 
cursor to the line above, erasing the 
last character on that line. If you wish 
to move to the line above without I 
deleting the last character, press the 
up-arrow key. The cursor will move I 
to the correct position on the above I 
line. If you move up or down on to I 
a line which already contains 60 
characters, the cursor will be in column I 
61, which is not normally possible. In I 
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this situation, you cannot enter a 
character. You can only move up or 
down. 

Now, when you've reached the 
bottom of the box, and you fill the 
line or press RETURN, the text will 
scroll up by one line. When you are 
on the top line, and press the up-arrow 
key or delete past the beginning of the 
line, the text will scroll down by one 
line. Note that you may only have up 
to 60 lines, and you cant scroll up past 
line I or down past line 60. I chose 
60 lines as this is as many as can fit 
neatly onto an sheet of A4 paper. 

Being BASIC, the scroll routines 
are quite slow. If you find it's too slow 
for you, I suggest the following: 

When you reach the bottom line, and 
have entered the text for that line, press 
RETURN a few times (10 at most). 
Then, when the scrolling has finished, 
move the cursor up to the correct 
position and continue typing. 



THE OPTIONS 



Now that you know how to enter 
your text, it's time to learn what 
you can do with it. The first thing to 
do is press "CTRL" to access the help 
screen. You must go to the help screen 
before you can use any of the options. 

The top of the screen contains 
simple reminders about how to enter 
your text - the options are at the 
bottom. To select, simply enter the 
number which is to the left of the 
option you require. The options are: 

1. RETURN TO TEXT 

This option does not affect the text 
in any way. It simply returns you to 
where you were before calling the help 
screen. It is the only option which 
doesn't ask "Are you sure?" before 
continuing. 

2. GO TO LINE 

Who'd like to guess what this does? 
After making sure you're sure, simply 
enter the number (1-60) of the line you 
wish to go to. You will be returned 
to your text, with the cursor at the 
correct position on the line you 
selected. 

3. SET TEXT NAME 

This option allows you to enter a 
filename which is used when saving or 
loading your text. When you first 
RUN the program, or if you enter a 



blank line, the current name is given 
as "No name!" i.e. the program will 
save or look for an un-named file, not 
one with the name "No namc!"To give 
a filename, type in the name and press 
RETURN. The name stays the same 
unless you enter another, or select 
"DELETE SHEET" (see option 6). 

4. MOVE TEXT 

On selecting this option, you are asked 
for the start and end lines of the block 
you wish to move, and the new start 
line of the block. When you've entered 
these, the block will be moved, and 
you will be returned to your text at 
the line you were on before calling the 
help screen. You should be aware of 
the following things when using this 
option: 

(a) You CAN move a block to start 
within itself, i.e. if you move text from 
lines 1-20, you can define the new start 
lines as line 10. 

(b) The block to be moved must fit, 
i.e. you can't move a block of 20 lines 
to start at line 50. If you try this, the 
block will not be moved; you will get 
the message "Block will not fit." and 
will be returned to your text where you 
left it. 

(c) To move only one line, enter the 
same number for both the start and 
end lines. 

(d) Most importantly, moving a block 
will over-write any text that is in the 
new position. Also, the lines are 
deleted from their old position. 

5. COPY TEXT 

This works in exactly the same wav 
as "MOVE TEXT", except that the 
lines are not deleted from their old 
position. 

6. DELETE TEXT 

On selecting this option, you will be 
asked whether you'd like to clear a 
block, or the entire 'sheet'. Selecting 
'block* will prompt for the start and 
end lines of the block to be cleared. 
The block will then be cleared, and 
you will be returned to your text at 
the correct position. If you select 
'sheet', the program is re-RUN. This 
clears all text and resets the filename 
to "No name!" 



7. SAVE TEXT 

I'm sure there's no need to explain this 
option, but I will tell you that the 
current filename is displayed along 
with the "Arc you sure?" prompt. 



Therefore, if you wish to change the 
name before saving, just press "N" and 
go to the "SET TEXT NAME" option. 
When the text has saved, youll be put 
back where you were. 

8. LOAD TEXT 

Again, there's no need to explain this. 
Note, however, that when text has 
loaded, the cursor will be on line 1 
of the text. If you can't remember the 
name of the text you wish to load, go 
to the "SET TEXT NAME" option 
and enter a null string (press 
RETURN). The program will then 
load the first file it comes to. Also note 
that when a file is loaded in this way, 
the name is NOT set to that of the 
file, i.e. it is left blank (or "No name!") 

9. QUIT PROG 

This is self-explanatory. 

PRINTING OUT YOUR 
TEXT 

I had to write the printing program 
as a separate unit, as my printer 
is non-Commodore, and I have to use 
an interface; sadly, my interface 
software uses the same area of memory 
as ROM 80. (For those who are 
interested, my printer is an Epson MX- 
80 F/T Type III, and my interface is 
the "Commodore Connexion", which 
I bought in Boots for£l9.95 about two 
years ago. It may be cheap, but it suits 
my needs perfectly.) 

My printer defaults to the English 
character font on power-up, and while 
in this font, printing a hash (" ") will 
result in a pound sign being printed. 
So, if I want to print a pound-sign, 
1 send a hash to the printer, hence line 
9 of the Letter Printer 2 program. If 
I want to print a hash, I must change 
to the American character font, send 
a hash, and change back to the English 
font, hence line I L 

Confused? You should be! Let me 
make it simple: if your printer can print 
a pound-sign AND a hash from the 
SAME font, delete lines 9 and 1 1 from 
the Letter Printer 2 program. By the 
way, a list of the printer control codes 
used can be found at the end of this 
article. 

Right. When you've saved your 
text using the Letter Writer 2 program, 
switch off your computer, connect 
your printer, and switch them both on. 
Load your interface software (if 
necessary), and then LOAD and RUN 
the Letter Printer 2 program. Follow 
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TABLE 1: PRINTER CONTROL CODES 




CONTROL CODE 


LINE 


ACTION 


CHR$(27)+"R"+CHRS(0) 


u 


Set printer to Amcncan 






character set. 


CHRS(27)+"R" + CHR$(3) 


11 


Set printer to English char- 






acter set. 


CHR$(27)"@" 


15 


Initialise printer. 


CHR$(27) M 8" 


15 


Disable paper-end detector. 


CHR$(27r3"CHR$(18) 


15 


Set line spacing to 18/216 






inch. 



the on-screen instructions. After a 
short wait (while the 'up-arrows' are 
being exchanged for quotes), your text 
will be printed, with a nice even border 
all round. (At least, it will if you've 
got your paper in straight!). 

That's about it, I think. 1 hope you 
find the program useful. It may not 
be up to the standard of 'Easy Script' 
and other word-processors, but, as far 
as I know, it's only the third true 80- 
column (well, almost) "word- 
processor" available to those without 
a disk drive! (YC Writer, from the 
Your Commodore Serious Users 
Guide, and Letter Writer 1 being the 
other two.) 



There are four functions which were 
added after the above instructions 
were written. To use these functions, 
you DO NOT have to go to the help 
screen, just press the required key(s). 
The functions are: 

L Holding down either SHIFT key 
and pressing CLR/HOME will clear 
the current line of text and place the 
cursor at the beginning of the line. This 
saves time when clearing a line because 
you've noticed a mistake. 
2. Pressing fl will centre the line of 
text that the cursor is currently on, 
thus saving time when entering head- 
ings etc. 



3. Pressing f3 will place the end of the 
current line at the far right. Please note 
that this is NOT a right-hand justi- 
fication, as the lines do not remain 
parallel to the left margin. As an 
example of how this can be used, type 
in your address, with each line starting 
at the left margin. Then, move the 
cursor up to the first line of the address 
and press D. By doing this for each 
line of the address, you do not have 
to play around entering spaces to line 
up your address on the right hand side. 

4. Pressing f5 will place the current 
line so that it starts at the leftmost 
position (the opposite of f3). This was 
just included in case you press 13 on 
the wrong line, or any other similar 
mistakes. 

If you use functions 2-4 on a line with 
leading or trailing spaces, they may 
take a few seconds to work, as these 
spaces must be 'trimmed off for the 
functions to work correctly. 
Right. That is it. Have fun! And who 
knows? There may be a Letter Writer 
3 on the way! It won't be for a while 
though, 'coz I've got a big blister from 
typing out these blasted instructions. 
I'm off for a cuppa. Till next time... 
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OFFICIAL COMMODORE/AMIGA DEALER 

COMPUTERS II 

Amiga 2000 only 976.35 

Amiga 2000 • 1084S Stereo Col Mon 1229 35 

Amiga 2068 PC/XT Biidgeboard l 5 25' Dfivo 4*1.95 

Amiga 500 ■• Modulator 359.00 

Amiga 500 < Games 399 .00 

Amiga 500 • 1084S Stereo Col Mon 629 00 

Amiga 500 ' Philips 9813 Stereo Col Mon . .609.00 PJ 

Commodore PCI Single Drive Mono 332.35 Pj 

Commodore PCl0,'?0M0'6O PHONE 

Commodore 1280 DeskTop , 379 00 

COMMODORE 64C PACKS 

Home Enlerlainmenl Pack with Yamaha Kbrd (25 Styles. 25 Voices etc) • 

Personal Stereo • C2N • Joy - Games 189.00 

Hollywood Pack with CSH • Joy ■ 10 games 139.99 

PRINTERS 

Citiren 120D Parallel or Commodore 129.95 

Star LC- 10 Parallel or Commodore 219.00 

Star LC-10 Parallel or Commodore Colour 249.00 

Star LC-10 24 pin Multi-font 170/57cps 329.00 

MONITORS 

Commodore 1084S Colour Monitor mc tead 279 00 

Philips S833 Stereo Colour Monitor inc lead 259.00 

Philips 750? Green Screen Monitor 95.00 

MISCELLANEOUS 

Amiga 501 512K RAM/Clock Expansion , ....139.00 

Pace Modem - S/ware tor Amiga V21/23 Prestel. BBS etc 239.00 

Commodore 1541-11 Disk Drive (NEW) , 159.00 

Commodore C2N Data Recordor 29.95 

Cumana CAX354 Amiga Disk Drive , 95.00 

Power Supply 'or C64 , , 28.45 

Super-G Cent l/F - Graphics C64/12H 34.95 

Surge Protector 13A Plug 12.95 

Surge Protector 3-Way Adaptor or 4-Way Dist Unit 15.95 

Amiga DOS Retiirencc Manual , £22.95 

026 Official Prog s Ret Guide pftp £2 18.95 

Mouse Mat 4.95 

SOFTWARE 

Suporbaso Porson«l : , .49.95 

VliaWrite 128 • Spencheck S9.9S 

VizaSlar 12B Spreadsheet & Dalabasa 79.95 

Superbase 64/128 24.95/29.95 

Superscript 64/129 24.95/29.95 

Tasword 64 40'BO Col WP - Tape/Disk 24.95/24.95 

* ALL PRICES ARE INCLUSIVE OF VAT AT 115* 
* CARRIAGE E5 (EXPRESS £10). Software and small Items free 
* Prices subject to change without notice. EAOE 
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l-C-P-U-G 



the Independent 
Commodore Products Users Group 
is the largest and most friendly 
computer club in the country 

Back issues of 1988 available to non-members as well as 
members, al £2.00 each, postage paid. 



Many local groups with regular meetings 

News magazine included in membership - 100 
plus pages of reviews, news and information 
every two months. 

We support all Commodore Machines old and 
new; PET, VIC20, 64,16, '4, PC, 128 and all 
AMIGAS. 

Free Software Library of public domain 
programs for all the above machines available 
to members on supply of blank disk or tape and 
payment of p&p. New members, do not send for 
this until membership number is received. 

Help and Advice 

Discount scheme 

Subscription only £13 per year (UK) plus £1 
joining fee (overseas rates on application) 



If you are seriously interested in using or programming 
any Commodore computer, then joining ICPUG is a must! 

For full details, send a stamped, addressed envelope to: 



ICPUG Membership Secretary, JackC. Cohen. 
30, Brancaster Road, Newbury Park. 
Ilford, Essex, IG2 7EP 
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GAME REVIEW 




One ot the hottest coin-op licenses of ihe year, and 
the sequel to Sega's Afterburner, Thunder Blade 
is now competing head to head with that high-flyer 
for the eovcttcd Christmas number-one spot. 

The game puts you behind the wheel of the Thunder 
Blade, an advanced attack helicopter that's armour plated, 
crash resistant and armed with a 1,500 round 30mm cannon 
and uir-to-ground missiles. Unfortunately, in the C64 
version it's hard to find any difference between these two 
projectiles, and they seem to appear randomly on the screen 
destroying anything and everything. 

Your mission is to destroy the advancing forces of an 
evil dictator who is threatening your land. This gives you 
the opportunity to blast everything in sight as you battle 
your way through the game's four levels. Each level consists 
of both top-down and 3D-view combat sequences in which 
ycu shoot it out with enemy attack helicopters, Bengal Tiger 
tanks. Barracuda torpedo cruisers, Corsair fighter aircraft. 



the tanks, the view switches to a 3D perspective, and you 
have to run the gauntlet in Skyscraper city once again. 
This time the enemy helicopters are more effective, and 
you get your first chance to scrap some After hurner-*\y\t 
aircraft. 

If you survive that you win the chance to taekle the 
first super fortress, a giant warship bristling with guns and 
missile launchers that will test your skills and Thunder 
Blade's manoeuvrability as you hover back and forth 
dismantling the defences. A bar at the bottom of the screen 
displays important data such as your score, hits, the high 
score, your speed and how far youVe managed to get 
through the stage. 

Stage two takes you out of the city and into the 
mountains and deserts. The battle remains the same, but 
now stone columns replace the skyscrapers. At the end of 
this level, a massive troop carrier forms the super fortress, 
and presents even greater challenge. 
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armoured cars and Burner aircraft (US Gold obviously 
hopes you'll enjoy blowing them out of the skies). The end 
of each level is guarded by an aptly named super-fortress 
with enough firepower to down a squadron of Thunder 
Blades. 

The first level is set in the concrete jungle of Skyscraper 
GUy, and begins with a top-down view as you take-off from 
the Pepsi Cola heli-pad. You're soon busy dodging fireballs 
blasted at you from tanks, armoured cars and even the 
building themselves. The graphics at this point are very 
disappointing - the buildings are just four stacked squares 
that mow uneasily over each other to give you the bad 
impression of a tall tower block. While I appreciate that 
programmers need to take shortcuts to keep the speed of 
the game to arcade level this just isn't up to the high 
standards we have come to expect. 

Having said that, the gameplay will drive you back for 
more and more. Once youVe cleared the last car and silenced 



Stages three and four take you down the river delta 
to face the Barracuda torpedo cruisers, and onto the refinery 
to deal with a flying fortress and the command super-frotress 
the ultimate test for advanced pilots. 
Thunder Blade was a top arcade game, and is almost 
guaranteed great success as a coin-op conversion, but of 
all the available versions, the C64 one seems to be the worst. 
Although, the game play is good, the graphics are poor, 
missiles and cannons have the same effect, and you get 
only three Thunder Blades a game, whereas the other 
versions get five. It's good, but it could have been so much 
better. 



Touchline: 

Title: Thunder Blade. Supplier: US Gold, Units 2/3 Holford 
Way. Holford, Birmingham B6 7AX. Tel: 021 356 3388. 
Price: £9.99. 
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THE ULTIMATE BACKUP CARTRIDGE m> 

GOES ONE BETTER.,. ** 

fgivi 

EVEN MORE POWERFUL, MORE FRD1 

TOTAL BACKUP POWER I 



The most powerful I backup system ever devised. Unstoppable freezer system. 
Freeze at any point. Specially designed to work with game software. Just press 
the magic button to backup even the most heavily protected programs. 
J TAPE TO TAPE J □ TAPE TO DISK J 
J DISK TO DISK _! J DISK TO TAPE J 
VERY fast & efficient program compaction. Single part save at TURBO speed to 
disk or tape. Backups turboload INDEPENDANTLY of the cartridge. No program- 

ing" or user knowledge required. 
THE PROCESS IS AUTOMATIC - JUST GIVE THE BACKUP A NAME. 



ONLY ^ 

C34.99 



■j^^ST 



FREE J 




JUST LOOK AT THESE FEATURES... 

TURBO RELOAD. Action Replay Mk V has 2 unique Turbo Loaders - "Ramloadcr" & 
Warp 25". Both work at up to 25 times normal speed. That means that you can load - - ^* 

a typical program (200 blocks) in around 6. SECONDS! Just imagine - 
your backups loading completely independently of the L>' ' _ 

cartridge in seconds instead of minutes. \ \ ^^^^^^F"* 

PRINTER DUMP. Freeze any game and print — — — -^^^^^^ 

out the screen. Eg. loading '■ ' ~~ . — _ 

picture, high score screen, - — - — 

etc. Works with most — — — — ' 
printers. MPS 801. 803. 
Star, Epson, etc. Double 
size. 16 shades, reverse 
print option. Very 
versatile - no user 
knowledge required. 

PICTURE SAVE. Save 
any Hires multi colour screen to 
disk at the push of a button. Compatible 
with Blazing Paddles, Koala, Artist 64, 
Image System, etc. 

SPRITE CONTROL. Freeze the action - view 
animations. Load, save and modify sprites in any program. 

Flip, reverse, delete etc. Customise your games. Kill sprite W 
collisions - make yourself invincible. 64K operation. 

POKEFINDER GENERAL. AN AUTOMATIC INFINITE LIVES 
GENERATOR! Finds those pokes which make you invincible. Very high 
success rate - works with both old and new programs - stops you losing lives! No user 

knowledge required. Great fun! ^ 

MULTISTAGE TRANSFER. Even' transfers multistage programs- from tape to disk. The 
extra parts fast load - a unique feature. Enhancement diskis required for multi-loaders (see below). ' 

SUPER COMPACTOR. Ultra efficient program compaction techniques. Each program saved as a sinele file t 
programs per disk side - 6 programs per disk, if you use both sides. . . 

B .Jf XT t CR ! EN EDIT0R - Mod "y thc tcjrt B ««n on a frozen program. Customise your games by adding your name to the tit 
screen - change colours, etc.. then make a backup. Also a great programmers aid - 

ReJd C ^r;c7o^ a S endT./ aSt "^k Seco " df V BuiU in file co P v • work, with long files. Built in 1541 disk copy - 1 or 2 drives 

Read directory, send disk cdmmands. Change disk name, device number. Load direct - no need type filename. 

m.^r^J D,SK - OPER I f tlON 2 00 ™°cks in just SIX SECONDS. Works with any program of any length Works with 

S^^ZZS^' m ' B . aCkUpS t Basic - Monitor - Work, with all drives including iMlT Use both sldesof d^k Us" , 

Standard format - no file conversion required. Supcrfast Save. w^«as.uan> 



GRAPHICS SUPPORT UTILITIES DISK 

A range of utilities to make Ifae most of your high rem pictures created with 
papular graphics utilities or captured with Action Replays unique picture 

grabber. 

SLIDE SHOW. View your favourite screens in a slide show type display. Move 
from screen to screen keyboard or joystick control. Very easy to use. 
BLOW UP. A unique uliUty to allow you to take any part or your picture ft 
olow It up' to full screen site. Even fills the border with powerful sprite 
handling techniques. Very easy to use . simple commands. An interesting 

utility. 

SPRITE EDITOR. A complete sprite editor helps you create or edit sprites 

Full colour display. Animate to view movementa. AcUoo Replay can 
capture/insert sprites with any program - this editor is a perfect companion. 
MESSAGE MAKER. Takes your favourite screen - created with a graphics 
package ot captured with Action Replay ft turns It Into a scrolling screen 
message complete with music. Send screens to your friends with music ft teat 
scrolling. Simple text editor - easy to use. Choice of mualc. An exiting 
utility. Finished screens atand alone. ONLY £12.99 



WHAT THE REVIEWERS SAID 
I m stunned, amascd and totally impreased. This is easily the best value for 
money cartridge. The Cartrtdpe Kingf 
Commodore Disk User 



ACTION REPLAY ENHANCEMENT DISK 

The biggest and beat collection of special parameters and file copy program, 
lor transferring non-standard multi-load tapes to diak games like LAST NINJA. 
CALIFORNIA GAMES. LEAD ERBO ARD . DRAGON'S LAIR - NINETY titles in all. 

Almost all major titles covered. Latest edition Includes SALAMANDER 
HAWK EYE, THE GAMES seriea. 8TREETFI G 1 ITER . VINDICATOR. ALIEN SYN- 
DROME. PLATOON and many more. Just about every major multiload title 
can be transferred fully to disk. Cheats for Infinite time, lives etc 
The GRAPHIC SLIDESHOW latest edition display, multicolour pictures or 
loading screens saved by Action Replay or any major Art Package Biasing 
Paddles. Koala. Advanced Art Studio. Artist 64 etc. Lots of fun. 
Only £S.50. Upgrades ■ send £3.50 plus old disk. 
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function keys. Old. Delete. Merge. Append. Llnesave. 
Plist - list directory direct to printer. Single stroke load, 
save, directory. Swi tenable disk/tape turbo. 

FULLY INTEGRATED OPERATION. The MK V 

'Professional' has an onboard custom LSI LOGIC 
PROCESSING CHIP that integrates the whole range 
of utilities and makes them available at the press of 
a button at any time. 

CENTRONICS INTERFACE. For parallel print- 
ers, eg Epson. Star, prints listings with graphic 
characters. Send escape codes - make full use of 
your printer's extra facilities. Auto detect of 
parallel printer - no special commands required. 

PROFESSIONAL MACHINE CODE MONITOR. 

Full 64k monitor available at all times. Examine all 
memory, registers. 10. stack of any frozen pro 

rgram. Full range of commands, plus the luxuries 
that only a high capacity RAM/ROM system can 
offer: Assemble, disassemble. Hex/Ascli. Interpret 
in Ascii or screen codes. Fill. Hunt-. Compare, 
Transfer memory. Number conversion. Register. 
Go. Load. Save. Verify (turbo, tape or disk). Two 
way scrolling of all screen displays. Output , to 
printer (CBM or Centronics). Directory, error 
channel, 2 drive operation. Disk Monitor - read 
block, write block, assemble/disassemble drive 
memory etc. Hex calculator - add, subtract, 
multiply, divide. Unique set break/set freeze 
system. JSR Freeze. Full "floating" operation - 
corrupts no memory. Call Monitor from Basic or 
Freezer. Call Freezer from any point in your, 
program. 
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FREE 4 



ACTION REPLAY MK V differs from all other cartridges because it comb 

ROM. That means that ALL features are IN ST ANT I 
WARNING!! Other systems use outdated technology which severly tin 
hardware gives you MORE POWER, MORE SPEED, MORE FACILITIES th 

V* son. Here are just some of the 

•'•;V,. ' -Ni^*->^'":" V *' ' ' ' r V? "Vi'^^- 

MORE TAPE FACILITIES. Dual 
" rVogrammers tape turbo - very a 

slideshow for hires pictures. You ( 




o the title 



r 2 drives. 



r 



I value tor 



ISK 



pro (rams 

AST N1NJA. 
iUa In nil. 
ANDER. 
LIEN SYN- 
tiload title 

• nr. 

c tuxes or 

• Biasing 

fun. 



UPGRADE 
INFORMATION 

MK IV Professional to Mk V Professional - 
Just tend £9.99 A we trill send you a new 
Mk V Operating System Chip. No need to 
send your old cartridge - just plug In Ibe 
new chipl 

Ml IV (Standard) io Mk V Professional • 
send your old cartridge plus £15.99 A we 
will upgrade it to Mk V Professions! . 
(allow 14 days). 



PERFORMANCE PROMISE 

Action Replay will backup any program that any other cartridge can backup - 
and morel It also has an unmslrbrd range of onboard features. Before you 
buy. check our competitors ads to see what they offer and see how many of the 
Actloo Replay MK V feature! are either not there or have to be loaded from 
seperaie disks etc. When you boy Action Replay. If you don"! find our claims 
lo be troe, then return It within 14 days for a full refund. 



ORDERS NORMALLY DESPATCHED WITHIN 48 HRS 

HOW TO ORDER ... 



BY PHONE 


BY POST 


FAX 

0782 744292 




Send cheques/POs made 
payable to 
"Datel Electronics" 


0782 744707 
24hr Credit 
Card Une 


UK ORDERS POST FREE 
EUROPE ADD £1 
OVERSEAS ADD C3 



PRICES AND SPECIFICATIONS CORRECT AT TIME OP PRESS 
AND SUBJECT TO CHANGE WITHOUT NOTICE 



CALLERS WELCOME ■ Please reserve goods by telephone prior to visit. 



dAtel 

ELECTiiOpiCS" 

DATEL ELECTRONICS LTD.. FENTON INDUSTRIAL ESTATE 
GOVAN ROAD. FENTON. STOKE-ON-TRENT. ENGLAND. 



SALES ONLY 
0782 744707 



TECHNICAL ONLY 
0782 744324 



AR V 1 



GAME REVIEWS 





Microprosc launches it's firs! sports simulation and 
makes a departure from the usual diet of combat flying. 
It's literally a game of two halves, as the flip side of the 
disk contains a different version of the game. On one side 
you can succeed where others have failed and bring home 
the world cup, or flip the disk and try the American six- 
a-sidc version of the game. 

Whichever game you choose you'll be playing one of 
the fastest and best arcade-style football games, with a screen 
display showing a scrolling window over a top-down view 
of a match. You can adjust the length of each game up 
to 12 minutes, but two minutes will be long enough until 
you get used to the controls. You'd be surprised how many 
goals you can let in in the time, particularly if you're playing 
against Brazil. 

The ll-a-side game contains 29 teams in all, ranging 
from Oman and New Zealand to Argentina, Italy and Brazil, 
and the first challenge you should try is to play up the 
order of the teams, moving up every time you win. but 
down when you lose. This'll give you time to learn the 
basic moves - you'll have to, as not even Bobby Robson 
can stand humiliating defeats for too long. 

Soon your players will be sliding in and tackling you'll 
be able to control throw ins and corners, and youH be 
able to decide quickly whether to bring your keeper out 
to narrow down the angle, or wait on the line to dive to 
save the shot, instead of dithering somewhere in between. 
Eventually, you can even select the type of shot to try, 
including a straightforward volley, a banana shot, chip shot 
or Pele-style overhead kick. Whatever the style, you'll be 
able to enjoy it again as you see an action replay of all 
goals. 

Microprose Soccer is the first football game to 
incorporate the effects of weather, if only in a limited way 



a new dimension to sliding tackles, as the player can carry 
on sliding and even spin out of control, leaving the opposing 
player with free space to work in. 

A world cup tournament is played in six groups, with 
the first two teams in each qualifying for a second knockout 
stage. Each group has a team from each of the 'seeded 
groups', that include teams according to their ability and 
past record. For example Brazil, West Germany and 
Holland are in the first seed group, and England are in 
the second (which seems quite generous on recent form). 
Therefore you can adjust your chances of success in 
qualifying by picking the team you will represent - if you 
choose to play Brazil, then youH have an easier group than 
if you opted for Cameroon, but will probably come unstuck 
in the knockout stage. 

If you flip the disk, you can swap Italy and Argentina 
for Houston and Miami as you compete in the American- 
style indoor league, which by a strange coincidence is 
organised in six groups with the first two progressing to 
the next stage, etc, etc., 

Micropruse Soccer was programmed by Sensible 
Software, and it has plenty of those touches that make 
a good game great, and the professional feel of a Microprose 
game. Some people will dislike the top-down perspective 
as its not a camera angle we're used to, but perhaps it's 
the only realistic way of getting 22 players on a football 
field. 

ToucMine: 

Title: Microprose Soccer. Supplier: Microprose, 2, Market 
Place. Tethurv. G/oucs., GL8 8DA. Tel: 0666 54326. Price: 
£14.95 cass. £19.95 disk. 
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PROGRAMMING 



A 

Flow 
of 

Ideas 



Probably ihe mosl used symbol in 
a program is the input / output 
parallelogram (I/O symbol). This 
contains such things as print 
statements, input requests, DATA 
reads, printout commands and disk or 
tape accesses. The Data manipulations 



f unj 

•INPUT NPrtE' 



/MOT) 

/ ITEHt. PRICE 



INPUT 



•ODOeESi LIST" 



are contained in rectangular 
processing symbols. The contents 
include the handling of strings and 
logic operations, as well as the display 
of more conventional mathematical 
formulas: 



«Eo=iaose>2j 



E* IT t «»f. 



"UL'IHl* COS' 
ar NUriBEfi OF 
ITEMS 



Sometimes a program can branch 
as the result of a decision. A branch 
is denoted by a decision diamond: 



Formal flowcharts are the 
best way to show how a 
program works 

By Norman Doyle 



Any book on programming will 
(ell you that REM statements 
can be used to remind the 
programmer how a program was 
originally conceived. Having gone 
back to modify many of my older 
programs, 1 have found that REMs 
only work to a certain degree. The best 
answer is to create a formal flowchart, 
because this can aid conversion from 
one machine to another, as well as later 
updating. 

A flowchart is a graphic display of 
the logic held within a program and. 
as the old adage says, a picture is worth 
a thousand words. Formal flowcharts, 
or flow diagrams as they are also 



known, rely on a series of box symbols 
which represent certain specific actions 
within the program. All flowcharts 
should start and end with a terminal: 



('START J f STOP J 



To indicate the start, the terminal 
has START written inside it, and the 
end terminal has STOP in it - isn't 
logic wonderful. 

Some flowcharts spread across 
several sheets of paper, so a special 
°ffP a % e connector is used which 
contains the number of Ihe page to 
which it connects. Similarly, the 
routine on the page to which it refers 
starts with an off page connector 
containing the number of the page 
from which it continues. 



13 




Notice the arrows on the branch 
lines. These are flow direction 
indicators, and should appear between 
every box to indicate the direction the 
program is taking, because the 
direction of flow may not always be 
obvious. 

Subroutines would be difficult to 
show on a single diagram, so a special 
form of the processing rectangle has 
been devised to cope with this. The 
predefined process symbol looks like 
this: 



GOSUB 

MENU PRINTOUT 
PAGE 22 
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Symbols contain all of the program 
information, but there may be 
occasions when extra information is 
necessary. This equates to the REM 
statement in Basic. The annotation 
symbol is an open-ended box which 
connects to the flowchart by a doited 
line to the box to which it refers: 



\ 



THIS BOX IS 
LIKE 0 REM IN 
BASIC 



A typical flowchart looks like the 
one in Diagram I. Notice that the 
branch necessitates the drawing of a 
long line which connects the decision 
symbol back to the re-entry point. In 
a program with several of these links, 
the page would soon look very untidy, 
so a connector symbol has been 
devised which is only used to connect 
two parts of a flowchart contained on 
a single page. If a branch goes over 
to a new page then the offpage 
connector is used. 

This is the range of symbols 
commonly used in flowcharting. 
Professional diagrams also use 
another set of symbols for various 
storage devices and communications 
links, but these would rarely be needed 
in a small home computing 
environment. 

Exploded Diagram 

Diagram 1 shows a hex to decimal 
convenor. It's obvious where the 
program starts, and the first operation 
is to zero any necessary variables and 
then print a request for a number input 
onto the screen. Although 
Commodore Basics allow INPUT 
statements to print the text and the 
input prompt on the same line, this 
may not be true in all cases, so the 
input of a number string is listed as 
a separate action. 

The input is then tested to see if 
it starts with a dollar sign. If it does, 
the program continues, otherwise it 
returns for a proper input. At this 
point the program could include a 
decimal to hex convertor in a future 
development. Although the full branch 
line back to the start is shown, in this 
case it could be replaced by the use 
of connector symbols as used on the 
rest of the diagram. 



Following through the conversion, 
the program next checks if the string 
is five characters long (dollar plus for 
significant characters) - if this is not 
the case then the program loops back 
to position 3. If true, the convcrtion 
process is started with a loop which 
takes each character in turn, excluding 
the dollar sign, by using a MIDS 
command. 

Each character is tested for 
validity, and if any one fails this test 
the program loops back for a new 
input. Valid characters are passed to 
a subroutine called number convertor, 
which has an annotation symbol 
attached to explain what the 
subroutine does. 

The subroutine actually converts 
the hex character to its decimal 
equivalent and returns it as the variable 
VALUE. This variable is then added 
to variable DECIMAL, and then 
multiplied by 16 to prepare it for the 
next hex place. 

The loop is checked to see if all 
values have been taken and, if not, the 
next value of A is taken. If the loop 
has ended, the program prints the 
message 'DECIMAL =' and then the 
decimal value. Note the ways of 
expressing text and variable values. 
Text is enclosed in single quotes and 
variables as a plain name. 

The program closes by asking if 
another input is required, and loops 
back if this is the case. Otherwide, the 
program ends at the stop symbol. 
Converting this to a program is simple. 
Try it for yourself and then check the | 
listings pages to see how 1 did it. 



PROGRAM: HEX/DEC CONUERTDR 



30 


10 D-0 




61 


20 INPUT "ENTER NUMBER IN 


HEX 




";NS 




OF 


30 IF LEFTSCNS.DO-S-THENIO 


DC 


40 IF LENCNSiOSTHENlO 




11 


SO FDRA-ET05 




91 


50 OfiSCCniDSCNS.ft.l)) 




7F 


70 IFC>47ANDC<59THEN100 




SB 


80 IFC>64ANDC<71THEN100 




34 


90 GDTD10 




52 


100 GOSuBIBO 




01 


110 D-CD*U) : IFA<5THEND-D 


•16 


FA 


ieo NEXT 




IE 


130 PRINT"DECII1AL-'' 1 rJ 




09 


140 PRINT "t DDUIN3 ANOTHER 
T" 


INPU 


OD 


150 GETAS: IFAS-"Y"THEN10 




51 


160 IFASO"N"THEN150 




an 


170 END 




SB 


ISO U-C-46: 1FC<59THENP00 




10 


190 U-U-7 




4B 


500 RETURN 
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The Software 
Spellbook 

In which Wizard Emeritus Myron Patch, Grandmaster 

of the Honourable Order of Coders and 
Algorithmicists, offers essential lore for the apprentice 

Numeromancer 



To use a C64 wiihoul a few essen- 
tial spells (the superstitous refer 
to these as 'software') is as 
pointless as trying to invoke the Moon 
Goddess without spilling the blood of 
a virgin ram. Therefore in this series 

1 offer, to those who have the ears that 
can take in such wisdom, a few small 
fragments of forbidden love that may 
dramatically increase your ability in 
the arcane branch of knowledge 
known as machine coding. 

I assume that everyone out there 
knows the fundamental Coder Level 
spells such as Addition and Sub- 
raction. Without these, of course, no 
progress to the more fearsome level 

2 Multiplication and Division is 
possible. It is the first of these that 
we shall be looking at. 

The easiest form of Multiplication 
spell to understand is shown in listing 
1 , with a flowchart This multiplies 'wo 
single-byte numbers NUMI and 
NUM2 to give a two-byte result - 
RESULT. Already, this shows us 
something essential about Multiplica- 
tion. You must always, when multi- 
plying a number of n I bytes by another 
n2 long, allow for a result nl*n2 long. 
This is a general principle of software 
magick, which the unwary ignore at 
their peril. 

So how does the spell work? All 
apprentice grade spcllworkers already 
have a founding in the popular, but 
vulgar magical language known as 
decimal, its founding being the number 
10. You may be surprised to find that 
performing multiplication spells in this 
language is actually more complicated 
than using a method based on the 
magical law of 2, which we usually call 
binary. 

Here is a typical base ten multiply: 



23 
x45 



5x23- 105 
CARRY: I 



00011 
CARRY: 111 



115 

4x23- 82 
CARRY: I 



035 
CARRY: I 
1035 

The same essential components of 
this are used in binary. You can see 
that there is a process of repeated 
addition, but that, because of the 
numeric system, each addition takes 
place on a level 10 times larger than 
the previous. This is achieved by 
shifting each succeeding sum one 
position to the left. Secondly, note the 
use of the carry. This, of course, is 
use when a multiply goes beyond the 
range of one column (i.e. greater than 
9). 

All this is obvious, but my reason 
for explaining it should become clear 
when we repeat the same process for 
two small binary numbers: 

111 
xlOl 



111011 



lllxl 
111x0 
lllxl 



111 

000 

111 



Now could life be simpler than 
that? For a start, each multiplication 
of the first number (the multiplicand) 
can only give rise to either the number 
itself or zero. There arc therefore no 
carries in the multiplication, since the 
range of one column is 0-1 and you 
cannot get two no matter how you try. 
The carries come in in the addition, 
but once again, a carry can only be 
a I or it doesn't exist at all. 

Of course, we do sums rather 
differently on paper from the way that 
the hardware will do them. While we 
could design a machine code routine 
that would do that trick exactly as we 
just did it, this would not be efficient. 
Most algorithms are loop structures, 
so a machine code routine does not 
pile up a heap of multiply results and 
add them up at the end. It instead 
performs an addition to a cumulative 
total every time it goes once around 
the loop. 



The process is like this for nlXn2: 



1. Is leftmost digit of n2 a 1? This 
is done by shifting it leftwards, and 
if it is then the carry flag will be set. 
If it is not then proceed to 3. 

2. It's a 1, so we have our multiply. 
This of course just happens to consist 
of adding nl to a result field (this 
should have been cleared to zero at 
the start of course). The addition may 
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Listing 1 + Listing 2 
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1 byte x 1 byte 
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40 


num 1 


equ 


»f b 






30 


nuni2 


equ 


»f c 






60 


resu 1 t 


egu 


S+d 






70 


1 










80 
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mui It inly 

■ V 4 mm m W 


Ida 


»o; 


c 1 ear resu 1 1 


lo 


100 






resul t + 1 ; 


and h t 




1 to 




ldx 


M«8; 


set up counts 


r 


120 


mu t t I nnn 


asl 


num2i 


leftmost 1? 




130 




bcc 


mu 1 tsl< i p i 


no 




140 




c lc 








150 




adc 


numl ; 


add to lo 




160 




bcc 


mu 1 tsk ip [ 


no carry 




170 




i nc 


resul t+ 1 t 


add to hi 




171 


mu 1 tsk i p 


den i 




dec loop ctr 




172 




beq 


mu 1 tend 1 


If zero exit 




180 




asl a; 


shift result 


lo 


190 




rol 


resu lt*l[ 


result hi 




191 




clc 








192 




bcc 


mu 1 t 1 oop [ 


go back 




220 


multena 


sta 


resul t I 


1 eave resu 1 t 


lo 


230 




rts 









10 


I 
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1 mu 1 1 i p 1 y 


2 bytes by one 




30 


! 






AO 


numl 


equ *fb 




SO 


num2 


equ *fd 




60 


resu 1 t 


equ «2a7 




70 


t 






80 


i 






90 


mul t2 


Ida HO; 


clear result 


100 




sta resu 1 t ♦ 1 ; 


fields 


no 




sta resu 1 t»2 




120 




ldx Hi6; 


set un r nil rt r « r- 
leftmost 1? 


130 


mu 1 1 21 oop 


as 1 num l i 


140 




rol numl+l 




150 




bcc mult2skip[ 


no 


160 




clc: 


yes so add 


170 




adc num2; 


mu 1 t I n 1 i pi' 


190 




bcc mu 1 t 2sU i p { 


to the 


190 




i nc resu 1 t * 1 | 


three 


200 




bne mu 1 t2sk i p I 


bytes 


210 




lnc result+2 




220 


mu 1 t2sk ip 


dex [ 


decrement loop 


230 




beq mult2end; 


if zero exit 


240 




as 1 a t 


shift result 


250 




rol resu 1 t * l | 


fields 


260 




rol resul t*2 




270 




clc; 


return tD 


280 




bcc mul t21oop; 


start of loop 


290 


mu 1 t2end 


sta result! 


store result lo 


300 




rts 



be more or less complicated, de- 
pending on how many bytes you are 
multiplying, but it's always there. 

3. The result field must now be shifted 
one to the left ready for the next 
placing. 

4. proceed to 1 

Fine, but we only want to do the 
process a certain number of times. To 
achieve this, a machine code routine 
will use one of the registers as a loop 
counter. The number of times you need 
to go around the loop depends on the 
number of bits in n2, as you may guess. 
For a single-byte number this will be 
eight, for a two-byte sixteen, and so 
forth. 

Besides the simple single-byte 
multiply, I have also included a listing 
for a routine that will multiply a 2- 
byte number by I byte to give a 3- 
byte result. The principle is exactly the 
same, so I leave you to figure this out 
yourself. 

Quick and Dirty 



Quick and dirty multiplications arc 
excellent things when a particular 
result is required. You need to be quite 
clear when they are acceptable, 
though. Bear in mind that when you 
shift a number one bit to the left, you 
multiply it by two, as any power-of- 
two multiplication, if that is exactly 
what you want, can be achieved this 
way, and is extremely fast. 

Other numbers can be broken 
down into powers of two and multi- 
plied rapidly in this way. The 
commonest example is ten. Multi- 
plying by ten is exactly the same as 
doing two multiplies, one by eight, and 
one by two, and adding the result. The 
last routine does exactly that. Look 
out for when you need to use routines 
like these. Speed is of the essence in 
real-time graphic spells, so always 
consider a quick and dirty method if 
you can, rather than a general-purpose 
routine which will always go eight, 16 
or more times around a loop, no 
matter what size of number is present. 



common things. If you can pare 
microseconds off a standard random- 
number generator, for example, I want 
to hear from you. 

If we select your algorithm, it may 
well win you a crisp five-pound note. 
So send us an assembler source code 
listing plus a plain-language 
explanation of the magickal proceed- 
ings and a small measure of fame and 
fortune may be yours. 



What we have just described is a Calling all wizards 

general-purpose multiply. Even non- 



Listing 3 



adepts know, however, that when in 
a hurry, there are often faster methods. 
When performing the awesome Ritual 
of Matrix Multiplication, many a 
newcromancer has substituted an 
ordinary lizard for the fearsome Death 
Reptile from the Jungle of Balak- 
Nizaram and survived (of course those 
that survive are the only ones who can 
tell us about it). 



In issues to come I will be illustrating 
ways to do many other common spells. 
The next page of the Spell book will 
deal with division. 

Illustrative spells, however, are not 
always the fastest. I will be interested 
in hearing from any adepts out there 
who have designed algorithms of their 
own and can explain them. There can 
simply be faster ways of doing 



10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 



(multiply 1 byte x 10 



num 1 
resul t 
» 

I 

mu 1 1 x 10 



equ 
equ 



*f b 
*f d 



1 



1 da 
sta 

35 1 

rol 
Ida 
sta 
Ida 
asl a 

rol result+i 
as la 



HO 
num 1 
numl 
numl ♦ 1 
numl ♦ 1 
resu 1 t *1 
num 1 



iuI tend 



rol 
clc 
adc 
sta 
Ida 
adc 
sta 
rts 



resu 1 t + 1 

num 1 
resul t 
num 1*1 
resu 1 t+1 
resu 1 t + 1 
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Pac- 
mania 





Unless you happen to be a hermit living in a cave 
in the unpopular end of Outer Mongolia, you will 
know and either love or hate Pacman. That yellow 
mouth that munches dots while the machine eats your money 
at an alarming rate has already starred in two computer 
games, the original coin-op conversion and the game of 
the arcade sequel, Pacland, which was a sideways scrolling 
arcade adventure featuring ghosts in planes and other 
equally unlikely events. Now. Pacman's back in 3D! 

Pac-maniacs can now munch their way through 3D 
scrolling screens filled with dots to eat, ghosts to avoid, 
and power pills to turn the ghosts pale and into bonus 
points, as they scuttle back to their base to recharge. As 
in the original game, fruit appears for a limited time to 
tempt you into the middle for a juicy bonus, but also into 
the range of patrolling ghosts and away from the power 
pills. 

Pac-munia is more than just a 3D version of the original 
game - although that would probably be enough for most 
Pac-maniacs as it adds a few extra features that will make 
the game a challenge for all players whatever their skills. 
From the opening screen you can select which level you 
will start at. and either start slowly with the easier screens 
or jump straight into the thick of the action. 

The game consists of four different screens that you 
visit again and again as the things speed up and generally 
gel tougher, that go under the misleading names of Block 
Town, Pacman's Park. Sandbo Land and Jungly Steps. 

Clyde, the chief ghost, has recruited two new spooks. 
Sue and Flunky, to pursue you, but Pacman has a new 
trick up his sleeve - pressing the fire button makes him 
jump, over ghosts if necessary, to escape from tight corners. 
Pacman also has the help of two new powcrpills that appear 
in place of some fruit. A red powerpill gives you double 
points, which can really help to rack up those high scores, 
and a green pill that temporarily turbo charges Pacman 
so that he hurtles around the maze. 

Pacman has always enjoyed a cult status, and has been 
played by those who don't normally play computer games 
(such as Your Commodore production people), and with 
the addition of 3D graphics, this following should grow 
and grow. 

Touchline: 

Title: Pac-mania. Supplier: Grandslam Entertainments, 12- 
18 Paul Street. London EC2A 4JS. Price: £9.95 
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IE REVIEW 




I 



Act 



i o r> : 



Next b 



Har»c: Bilbo Boss 



Starwc: 
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Right 
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GAME REVIEWS 



Operation Wolf 



There has heen a dearth of good shool-em-ups this 
year, but now your trigger finger can stop itching. 
Operation Wolf has arrived! Far and away the most 
successful arcade game of recent times, the only thing that 
Ocean have not managed to include in their conversion 
is the Uzi sub-machine gun that sits in front of the arcade 
console. 

Basically, you're on a one man mission of death and 
destruction. Sure, you have to rescue some prisoners 
towards the end of the game, but think of all the bodies 
you can pump full of lead en route. This is definitely a 
game for someone with the mentality of a Rambo rather 
than a General Patton. 

The game comes in six horizontally scrolling stages. In 
each section, there is a detachment of forces that has to 
be taken out before you can progress. These consist not 
only of enemy soldiers, but also tanks, gunboats and 
helicopters, and it is for this reason that you are equipped 
with a handful of rockets, as well as clips of ammo for 
your Uzi. 

Considering the nature of your mission, you go into 
battle decidedly ill-prepared, with only nine clips of ammo 
and five rockets. Extra weapons do appear on the screen 
which you can pick up if you shoot them, but there is 
frequently a conflict of interests here - do you take out 
the heavy enemy forces and risk running out of ammo, 
or risk life and limb instead? 

Because of the paucity of ammunition, it's not clever 
to keep your finger permanently on the fire button. Instead, 
restrict yourself to short bursts. Longer bursts are required 
to dispose of the tanks and helicopters should you run out 
of rockets, but this is worthwhile as they do most damage 
to you. Other objects to look out for as you blast your 
way merrily round the screen are open boxes of dynamite. 



Shooting these will effectively destroy everything on screen, 
so bide your time before blowing it up. You can also gain 
unlimited fire power, but this lasts for a short time only. 

As you progress through the levels, so the difficulty of 
your task increases not only do you have more men to 
kill, but the accuracy of your aim needs to be spot-on as 
well. The large soldiers start wearing bullet-proof vests, and 
have to be shot through the head rather than the body. 

Naturally, you're not indestructible, and an energy level 
shows your current state of health. You can improve your 
state of health by completing a level or shooting a power 
pill but still, the sliding scale moves inexorably towards 
your impending death. The best way to postpone your 
impending doom is by making sure that you take out the 
vehicles and paratroopes as quickly as possible. Also, 
shooting innocent civilians such as the nurses is considered 
to be a definite no-no, and you are severely penalised for 
each indiscretion. 

Instead of the machine gun in the arcade version, aiming 
is achieved by manoeuvring a crosshair sight round the 
screen. Joystick response is excellent, once youVe got the 
hang of what's going on. There is also the option to use 
a Neos mouse which is easier to use, although to compensate, 
you get less ammunition to start with. 

The conversion to an eight bit machine is excellent, and 
all the addictive qualities of the arcade machine arc present. 
Mindless violence it might be, but it is great fun as well. 
Strongly recommended. 

Touch/ine: 

Title: Operation Wolf Supplier: Ocean Price: £9.95 (cass), 
£14.95 (disk). 
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Extending 
Basic 

In this second article on Extended Basic, we develop a 
COLOR command and GOTO and GOSUB variable 
By Burghard-Henry Lehmann 



The main disadvantage with 
Commodore BASIC is that it 
doesn't give the programmer 
any access to the better facilities of the 
C64. There isn't even a command that 
lets you change the screen colours! 

In the first article of this series on 
extending the BASIC of the C64, wc 
introduced a simple command that 
changes ihe border colour. We can 
now expand on this und introduce a 
COLOR command that let's you 
change the ink, the paper and the 
border colours, all with one command. 

'COLOR' 

For the command itself I've chosen the 
American spelling, which is 'color', 
because this means one less letter to 
type in and saves us few bytes in the 
machine code routine. Remember, the 
last two letters of the command will 
be lokcnized by the computer, because 
OR is a Basic function which has the 
token hex BO (decimal 176)! Because 
ol this I compare in line 600 of four 
program with $B0 instead of '0' and 
R' 

The syntax of the COLOR 
command is COLOR a,b,c whereby 
a is the value for the ink colour, b 
is the value lor the paper colour and 



c is the value for the border colour. 
As you can sec, the separator between 
each parameter is a comma, even 
though I haven't included an error 
check in the routine that forces the user 
to use a comma and only a comma. 
This might be a job you like to try 
your hand at. Here is a clue: to force 
the system lo give a Syntax Error 
report, jump to SAF08. This will load 
the X-rcgistcr with SOB and then print 
the 'Syntax Frror' message. 

As I promised in the last article, 
we're going to make the use of 
variables possible. In order to make 
this possible, we use two ROM- 
routines: SAD8A, which evaluates an 
expression, and SB7F7, which 
transfers a value from the floating 
point accumulator if 1 into the zero 
page variables S 14/ 15. SAD8A gets an 
expression from the Basic text and 
evaluates it. The value of the 
expression (or "variable") is then put 
into what is called the "floating point 
accumulator" (short: "flp accu"). 

The Floating Point 
Accumulator 

There are two floating point 
accumulators: flp accu I 1 ($61 -S65) 
and flp accu # 2 (S69 - $6E). These 
are used by the C64 for all the 



mathematical calculations it does. For 
example, if an addition is to be done, 
the fist number is put into flp accu 
# I and the second number is put into 
lip accu # 2. Then the addition itself 
is done. Finally, the result is left in 
lip accu ft I. 

Each floating point value is stored 
in five bytes: the first byte represents 
the exponent of the number, the 
second byte holds the sign (+ or -) and 
mantissa I, and the final three bytes 
hold mantissa $2 to 4. This makes it 
possible to hold floating point 
numbers of any size - negative as well 
as positive - and do calculations with 
them with a high degree of accuracy. 
But its also quite cumbersome and 
slow. That's why it's usually better to 
develop your own mathematical 
routines rather than use the calculator 
in ROM. 

Nevertheless, in our routine it is 
convenient to use the ROM-routine 
because not only does SAD8A 
interpret a simple variable, but it can 
also do a mathematical expression. 
This enables us to enter, for example, 
COLOR INK+I, PAPER+B, 
BORDER*2 2. SB7F7 gets a value 
from flp accu # 1 and puts it, in integer 
form, which all we need, in zero page 
514/ 15 and the Y-register (low byte) 



YOUR COMMODORE march 1989 
29 



PROGRAMMING 



and the acuumulator (high byte). 

All we have to do then is load the 
contents of the Y-register into the 
system variables which set the colour 
- that is, 646 for the ink colour. 53201 
for the paper colour and 53280 for the 
border colour. 



GOTO with variables 

The next two routines (lines 1060-1 120 
and 1170-1310) enable us to enter 
GOTO and GOSUB with a variable. 
That is, you can enter a line, like 
"SUBROUTINE=IOOO" and then 
"GOSUB SUBROUTINE", (But 
remember, as with all variables in 
Commodore Basic, only the first two 
letters of the variable name are taken 
into account!) 

To modify GOTO so that a 
variable or expression is accepted, is 
really very simple: since the token for 
GOTO is hex 89, we compare in line 
460 with that value, and, if it matches, 
make the program flow jump to our 
routine (lines 1060-1 120). 

First, we point to the first character 
of the parameters of the GOTO 
command by calling CHARGET (line 
1080). The next two lines (1090-1 100) 
do the same thing as we did with our 
COLOR command: the variable or 
expression is evalutated (SAD8A), and 
the value which results is put from flp 
accu # 1 into zero page $14/ 15 
(SB7F7). 

Finally, we call the ROM routine 
at SA8A3 which executes the GOTO 
command itself, that is, makes the flow 
of the Basic program jump forward 
or backward to the line specified after 
GOTO. This routine expects the target 
line number to be in zero page 514/ 
15. That's why gathered the value from 
flp accu # I into those variables with 
the SB7F7 routine earlier on. 

GOSUB with variables 

GOSUM (lines 1 170-1310) is a bit 
more complicated. First, the relevant 
information for the line to which the 
program flow has to return - when 
the RETURN command is given - has 
to be stored in the machine stack, and 
then an ordinary GOTO has to be 
performed. 

Because of GOSUB, I had to 
modify the overall structure of our 
Extended Basics program slightly as 
well. You may have noticed that at 
the beginning of the main routine, 
three ROM routines are used: first, 
CHARGET is called, to get the token 
of the command itself or the first 



character of our extended command 
(line 380). Then our main routine is 
called (and not jumped to, as in the 
program in the previous article - line 
390), and finally a jump is made to 
SA7AE (line 400). that is, the ROM 
routine which executes the next Basic 
statement. 

In other words, our main 
routinc(lines 440-1510) has been made 
wholly into a subroutine. 1 copied 
Lines 1180-1290 of the GOSUB 
routine from the ROM routine at 
SA883. I couldn't give a JSR to this 

continued on page 87. 

The Machine Code 



10 
20 
30 
40 

ao 

60 

70 

BO 

90 

100 

110 

120 

110 

MO 

150 

160 

170 

10O 

mo 

200 

210 

220 

230 

240 

250 

260 

270 

2(10 

200 

300 

310 

320 

330 

340 

350 

360 

370 

380 

380 

400 

410 

420 

430 

440 

450 

480 

47U 

490 

490 

500 

510 

520 

530 

540 

550 

560 

570 

&BO 

590 

600 

010 

620 

630 

640 

660 

660 

670 

6B0 

600 

700 

710 

720 

730 

740 

750 



ORG 4Blf.? 
ENT 

CHARGET EW 100/3 

EXECVECT EQU J0309 



TURN EXTENDED BARIC ON 

BY CHANG I MO VECTOR AT X030B 

EXTBASON LUA B<I'RGSTART 
OTA '.EXECVECT 
LDA BM'RGSTART 
STA >EXECVECT 



RTS 



; TURN EXTENDED BASIC OFF 
;BY CHANG IIIG VECTOR AT *03QB 
;BACK TO NORMAL <»A7E4) 

EXTBASOFF I.DA JA7E4 

STA < EXECVECT 
IDA e >.:-;■.: 
5TA > EXECVECT 

RTS 



•*« MAIN PROGRAM ENTRY 

EXECUTE A STATEMENT (LIKE IA7E4) 

PRGSTART JSR CHARCET 
JSR PKGSTRT1 
J Ml' IA7AE 

;LO0K FOR EXTENDED BASIC COMMA! I OS 



ruasTRTj cmi' -o 

BEQ OFF . RT 
CMP BtB9 
BF.Q GOTO . RT 
CHI' BS8D 
DEO GOSUD.RT 



i'GOTO' 
: 'GOSUB' 



CMP C 
SHE NORMAL 
JSR CHARCET 
CMP -0 
BNE NORMAL 
JSR CHARGET 
CMr *L 
DUE NORMAL 
JSR CHARGET 

CMP UFO ; 'OR' TOKEN 
BEQ COLOR. RT 



:DO NORMAL ROM- ROUTINE 

NORMAL JMP IA7ED 
• 

; EXECUTE ' COLOR' COMMAND 

•GET INK PARAMETER 

COLOR. RT JSR CHARGET 
JSR | AD8A 
JSR tB7F7 



Basic Demo 



10 

20 

30 

40 

SO 

60 

70 

80 

90 

100 

110 

120 

130 



BEGINNING=20 : DELAY=110 
IHK-INT(RHDtlJ*16) 
PRINT 11 1(JK= " - INK; " 
PAPER=INT(RHD{ l)«18) 
PRINT TAB( 15) PAPER-' ; PAPER; 
BRD = IllTfRNDtl)*l6) 
PRIST TAB128) "BORDER=" , BRD 
COLOR INK. PAPER. BRD 
GOSUB DELAY 
GOTO BEGINNING 



FOR N=l 

NEXT 

RETURN 



TO 500 



760 
770 
780 
790 
BOO 
BID 
B20 
B30 
640 
B50 
BGO 
B70 
8B0 
890 

yoo 

910 

920 

P30 

940 

950 

AGO 

970 

9H0 

B90 

1000 

1010 

1020 

1030 

1040 

I0&0 

1060 

1070 

ioao 

1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1 170 

liao 

1180 
1200 
1210 
1220 
1230 
1240 
I EM 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1380 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1140 
I 450 
1480 
1470 
14D0 
1490 
1500 
1510 



; CHANGE INK COLOUR 

STY 646 

;GET PAPER PARAMETER 

JSR CHARGET 
JSR JADHA 
JSR IB7F7 

[change PAPER COI.OUR 

STY 53281 

;GKT BORDER PARAMETER 

JSR CHARGET 
JSR 1ADUA 
JSR tB7*7 

CHANGE BORDER COLOUR 

STY 53280 
JUMP TO REST OF ROM- ROUTINE 

RTS 

EXECUTE 'GOTO' COMMAND 



GOTO RT 
CO TO. RT1 



JSR CHARGET 
JSR 1AD8A 
JSR lo7F7 
JSR JABA3 
RTS 



EXECUTE 'GOSUB ' COHHAUD 



GOSUB. RT 



JSR CI1A l/GET 
LDA 1*03 
JSR IA3FB 
LDA »7B 
MIA 

LDA *7A 

niA 

LDA *3A 

PUA 

LDA t39 
PIIA 

LDA BJ8D 

PIIA 

JSR GOTO.RT1 
JMP SA7AE 



TEST FOR REST OF 'OFF' 

OFF. HT Jr.lt CHARGET 
CMP ' F 
BNE NORMAL 
JSR CHARGET 
CMP 'F 
RIIK NORMAL 

[EXECUTE 'OFF' COMMAND 

JSR EXTBASOFF 

iGET NEXT CHARACTER AND 

. JUMP TO REST OF ROM ROUTINE 



JSR CHARGET 
RTS 



YOUR COMMODORE march 1989 
30 



PRINT ENHANCER Plus/4 disk £19.99 

Plus/4 desktop publishing Proportionally spaced, high quality printouts, 
from BASIC, 3*1 and script/plus. Supplied with 15 fonts and font designer 
program. MPS 801/803. VIC 1525. 

RS232 INTERFACE 64, 128 or Plus/4* . . .£34.99 

Measuring only 12x69»57mm, the smallest and neatest unit available. 
Conforms to Commodore 1011 A user-port standard. Compatible with 
BASIC. Easyscript, Superscript. Suporbase, Mini Office, Script Plus etc. 
Connect to RS232 printers, modems and other devices. Supplied with 
1 metre ol cable (add 75p extra metre*) terminated with a male (female"} 
25-way D-connector. or a custom cable made to your requirements. Our 
after sales service for unusual printers guarantees to get you up and 
running. Supplied with a terminal emulator program, tile transfer and 
other utilities on tape/disk' 

IBM PC File Transfer Utility £9.99 

Captures text or binary tiles via the COMI HS232 port. Supplied on a 
360k IBM format 5'// disk. Simple Instructions provided by on-line help. 

VIEWDATA TERMINAL 64 or Plus/4 . . . .£14.99 

Access Preslel. Micronet. CityService etc. Works with any user-port RS232 
interface and 1200/75 modem. 



CENTRONICS CABLE 64, 128 



£18.99 



Use wiih Easyscript, Superscript etc. Driver for BASIC on disk or tape." 

6502 ASSEMBLER 64 or Plus/4* tape/disk £12.99 

A sophisticated two-pass symbolic assembler and text editor which 
supports tape and disk filing. The assembler, editor, source and object 
code may all be resident in memory simulaneously. facilitating rapid and 
Interactive code development. Very fast edit/ Assembler/test cycles. 

Z80 EMULATOR/ ASSEMBLER 64 disk £12.99 

A unique integrated Z80 development package The emulator compiles 
ZB0 source code into optimised 6502 which runs on the 64 at about one 
sixth the speed of a 2MHz 260. The cross-assembler generates hex or 
binary ZB0 object files. The disk contains a powerful editor and example 
programs. s 

Please specify' options. Send cheque. PO or order by access. 
Prices Include VAT and P&P. Overseas orders add £2.50. 
Allow up to 1 week lor delivery. 

YORK ELECTRONIC RESEARCH 

The Flshergate Centre, Depl YC, 4 Flshergate, York Y01 4AB 
Tel (0904) 610722 



E3 




Most advertisements are legal, decent, 
honest and truthful. A few are not. 
and. like you, we want them stopped. 

If you would like to know more about 
how to make complaints, please send for 
our booklet: The Do's and DorYis of 
Complaining'. It's free. 

The Advertising Standards Authority. 



We're here to put it right. 



A5A Ltd.. Depi Z. Brook House Tornngion Plate. London WC IE 7MN 
This space is donated in die interests of high siandards of advertising 



To find out alt you need to 



Know 



about the Amiga computer 




pays to subscribe to 'Your Amiga ' 



all 



you need to do is Jill in the coupon 



U.K. £9.00, Europe £1 1.80, Middle Easi £1 1.90, 
Far East £13.00, Resi oflhc World £12.10 
Airmail rates on request. 



r, 



Please commmence my subscription to YOUR AMK «A 

with the issue. I enclose my 

cheque/money order for £ made payable lo 

ARGUS SPECIALIST PUBLICATIONS LTD. 
or debit £ from my Access/Barclaycard 

No. 



Valid from to 



Signature 

Name 

Address ., 



Postcode 



L 



Send this form with your remittance to: 
INFONET LTD. 5 River Park Estate, 
Billet Lane. Berkhamsted, Herts HP4 IHL 
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C 6 4 P R O G R AMMING 

Basic 
Workshop 



Basic Workshop is a program 
which lets you press two keys 
(CTRL + ?) to print a keyword 
such as 'LIST'. It allows the Commo- 
dore keyboard to be used in much the 
same way as the Spectrum keyboard. 
It is stored at SC000-C800, so as not 
to get in the way of Basic programs. 

It works by using interrupts and 
the keyboard matrix: when the inter- 
rupts are serviced, the program checks 
to see if a key is pressed. If so, it stores 
the string in the keyboard buffer. The 
strings are held in a table, and most 
m/c language programmers should be 
able to change them with ease. The 
program can also change screen 
colours with the function keys, and has 
an inbuilt 'OLD* and Reset. This 
allows you to examine programs such 
as 'Patience* by Commodore by load- 
ing the program, resetting and OLD- 
ing the program. 

It was written on the Monitor/ 
Assembler on Action Replay IV. A full 
list of commands, etc, follows: 

LOADING 

Type: LOAD"BASIC WORKSHOP"^, I 
Then: NEW 

Then: SYS49152 

If this is not done when entering lines, 
all you will get are 'OUT OF 
MEMORY' errors. It should now 
print a message showing that all is well. 

CONTROLS 

AM the controls can be seen by pressing 
CTRL + | to show a helpsheet. 

FI = Cursor colour. 

F3 = Screen text colour. 

F5 = Screen background colour. 

F7 = Border colour. 

Shifilock = Listing, directory, etc. 
Pause. 



Avoid typing all your keywords out in full with this 
ingenious new program 

by B. Graham 




3£k 



CTRL + A = ASC 
CTRL + C = CLOSE 

CTRL + E = PEEK 
CTRL+H = CHR$( 
CTRL + L = LIST 
CTRL + P = POKE 
CTRL* R = RETURN 
CTRL + T:= DATA 



CTRL + 
CTRL * 



+ = OLD 
1 = HELP 



CTRL*B = GOSUB 
CTRL + D = 
DIRECTORY 
CTRL + G = GOTO 
CTRL + I = INPUT 
CTRL + 0 = OPEN 
CTRL + Q = LOAD 
CTRL+S=SAVE 
CTRL + V = VERIFY 



CTRL* - = NEW 

CTLR + (CBM) + = RESET 



When OLDing you MUST press 
CTRL and f, and not type OLD. This 
is because it is the keypress which 



OLDs not the actual word. Thus yoi 
get a Syntax error if you type it in. 
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GAMKS UPDATE 



ncs in the UK, a 
icjust has in he pan 
computer games 
lover's collection, There 
have been many versions 
made for the C64, this latest 
effort from Zeppelin games 
being endorsed by Jocky 
Wilson. 

Numerous different 
games are on offer. Tour- 
nament' allows any number 
of players to compete in a 
real darts game. Two player 
head-to-head' allows just 
two players to team up 
against each other, and 
"round the clock' is the old 
favourite where you have to 
hit the numbers in sequence. 
If playing round the clock, 
you can specify if you need 
to hit just the number, 
trebles or doubles in order 
to pass onto the next number 
in the sequence. 

Once you've selected 
your playing options and are 
ready to throw, the screen 
changes to a display of a 
hand holding a dart in front 
of a dart board. The hand 
on display moves around in 
a semi-random pattern as 
though the dart holder is 
suffering from a bad case of 
the morning-afters. 

You eontrol the rough 
direction that the hand 
moves in by the joystick. 
: : imply press fire when the 
dart is over the position on 
ihe bomd ihal you'd like to 
hit. and sit hack and watch 
your dart fly towards the 
That's all there is to 

pari of any darts simulation, 
t vnu re pl.ivinc iiK.iinsi 



ler, the display 
will change to a 3D 
represcnialion of the board. 
This is a purely cosmetic 
feature, and you simply sit 
back and watch the 
computer throw its three 
darts. 

As darts simulations go, 
it's far from being the best 



that I have seen. All \% not 
tost, though - the game is 
tun to play, even if it^i not 
a true simulation. A budget 
price and the option to play 
against other people also 
help to lift this game from 
the "don't bother" league 
into the "it could be worth 
adding to your collection" 



one. 
Touchline: 

Name: Jock Wihon's Darts 
Challenge. Supplier: 
Zeppelin Games, 28 
Osbourne Road. Jesmontl. 
Newcastle upon Tvne. NE2 
2AJ. Tel: (091) 281 4401, 
Price £2.99. 
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re's your chance to 
show off on a 
motorbike, and ai n budget 
price, courtesy of Code 
Mailers. Jet Bike Simulator 
allows you lo compete in jel 
bike races on one of 24 
courses. Up to two human 
players can compete against 
the computer-controlled 
bikes, but with keyboard 
only - no joystick option is 
given. 

Though the action in this 
game is fast and furious, it 
is spoilt a little by the screen 
display. In these days of 
scrolling screens, split 
screens and 3D views, Code 



Masters seem to have taken 
a backward step with this 
game, as each circuit Tits 
onto the monitor screen. 
This doesn't really spoil the 
play - if anything it makes 
it easier, as you can sec 
what's coming up - but it 
does mean that all the jet 
bikes appear on the screen 
as slightly oval dots, making 
differentiation between 
ihem difficult. 

I must admit to never 
having had a go on a jet bike. 
However, if the control of a 
real jet bike is as difficult as 
it is with these computerised 
ones, I don't really fancy 



giving it a go. Some may 
think thai travelling along al 
tull speed and turning right 
to go through the next gate 
will be easy - if so, you'll be 
in for a shock. When turning 
a corner, you can't lorgct 
about the forward momen- 
tum of your bike. If you do. 
you're liable to find yourself 
embedded in the nearest 
bank. 

Once you've mastered 
the normal version of Jet 
Bike Simulator, which if my 
performance is anything to 
go by will take quite some 
time, Code Masters have 
provided you with an 



advanced version. This uses 
(he same courses, but offers 
extra challenges. 

Somehow, Jet Bike 
Simulator doesn't quite 
make it to the status of being 
one of those "just one more 
go" types of games. It's good 
fun, the two player version 
especially so. Perhaps it's the 
poor display that causes the 
game to lack that final 
polish. 
ToucMine; 

Title: Jet Bike Simulator, 
Supplier: Code Masters, PO 
Box 6, Leamington Spa, 
CV33 OSH. Tel: 0926- 
814121. 
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here are some games 
that the computer is just 
right for, while others are 
utterly destroyed by being 
transferred onto the 
electronic wizard. Hustler. 
subtitled World Champion- 
ship 6 Ball Pool, seems to 
be one of those conversions 
I hat doesn't live up to its 
real-life counterpart. 

Any pool or snooker 
player will tell you that the 
skill in playing the game 
depends upon the ability of 
the player to position the 
balls just where he wants 
ihem. This is done not only 
by hilling the cue ball at 
varying strengths, but also 



depends upon exactly where 
you hit the cue ball with the 
cue, 

Hustler, from Top Ten, 
allows you to select where 
you would like to send the 
cue ball and al what 
strength, but that's all. In 
fact, selection of the strength 
of the shot isn't so much a 
choice as a test of youi 
reactions. To select the 
strength of the shot, you're 
required to watch a powei 
bar at the bottom of the 
screen and press the fire 
button when it's al the 
position you require. 

Hustler give* the player 
a choice of six different pool 



games: one player - any ball 
in any pocket; one player - 
pockci the balls in order; one 
player - put each ball in its 
correct pocket; two players 
put each ball in its pocket 
and score the pocket; two 
players mini pool, one 
player to go for the orange 
balls, the other black; two 
players one pots in order 
1-6, the other pots in order 
6-1. 

This simulation offers a 
good selection ot different 
games, and the two player 
games are fun when 
competing against a friend 
Unfortunately, the game 
lacks the realism that would 



make it a top-notch pool 
game. As it stands, I'd rather 
put my money into the real 
tables where there's a much 
greater skill element 
involved, though the £1.99 
price tag may just make il 
attractive enough to add to 
your collection for those 
damp, cold nights when you 
can't be bothered lo go out. 



Touchline: 

Xume: Hustler. Supplier. 
Top Ten, MIL 12 Chittern 
Enterprise Centre. Station 
Road, Thrale, Berks. RO? 
4 A. 4. Tel: 0734-302600. 
Price: £1.99. 



Super Stunt Man 




f your idea of fun is 
driving a car through a 
bolder-strewn desert at high 
speeds, racing a powerboat 
through tight twists and 
turns, gelling back into your 
car in order to drive as fast 
as possible through a forest, 
turbo boosting over the 
grand canyon, fighting it out 
with violent street gangs, 
and so on. then Code 
Masters have just the job for 
you as a stuniman in their 
latest game. 

Your job description as 
a stunt man in Code 
Masters' latest epic will be 
to navigate your way 
through all of the challenges 
mentioned above within a 
certain time limit. You have 
just four takes at each scene, 
and you must complete each 
one in turn. Of course if you 
fail in your task, then you'll 
have to start all over again, 
a* the film is no good. 



Super Stum Man is one 

of those fast action games 

that makes you feel sure that 

just one more go will give 
you a better score. Or 
perhaps you feel sure that 
youVe mastered the speed 
boat racing, and one more 
go will see you through it 
and onto the next stage of 
the game. 

If you're the sort of 
person who can't stand 
finding out thai the time is 
3 am and you're still playing 
that stupid game, but you'll 
have just one more go, then 
don't buy this program. On 
the other hand, it's a must 
for all addicts of fast action 
arcade games. 

Tauchline: 

Title: Super Stunt Man. 
Supplier: Code Masters, PO 
Box 6, Leamington Spa, 
England, CI '33 OSH. Tel: 
0926-814121. 



[in \ 



containing m- levels. 
However each level has 18 
distinct stages, so the game 
will take some getting 
through. The idea is to 
clobber ihe baddies" power 



Tauchline: 

Title: Terra lighter. 
Supplier: Zeppelin Games. 
28 Oahnrne Road. Jesmond. 
Newcastle upon Tvne, NF2 
2 A J. Tel: (091) 2NI 440/. 
Price: £1.99 (cassk 
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Time to get the old 
broadsword honed and 
ready. Camelot Warriors is 
a graphic adventure of some 
complexity, but there's still 
room for the hack and 
slayers. If you can make it 
through, its a matter of 
getting the four Magic 
Things to the Four Magic 



Kings. Not easy, and 
reasonable for a budget 
game. 

Tauchline: 

Title: Camelot Warriors 
Supplier: Mastertronic, 2-4 
Vernon Yard, Portobello 
Road. London WU 2DX. 
Price: £1.99 (cass). 



ler: 



How to be a Complete Bastard 




useful skill. 
Most companies have 
any openings for CBs, lar- 
:ly in management. Ha, ha 
only kidding, 

I his is, of course, the 
idgct version of last year's 



setting fire ! 



setting tire to things, 
frightening people, and a 
range of far less mentionablc 
activites, are all possible. 
Format is fairly standard 
graphic adventure, but this 
game has enough novelty to 
lift it above the crowd. 

Touchtine: 

Titlr: Hmx to be a Complete 
HauanJ. Supplier: Master- 
tronte, 2-4 Vernon Yard, 

WU IDX. Price: £1.99 
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PROGRAMMING 



Pilot 



a 



Programmer's 
Language 



// you're interested in educational programming but 
have yet to find a suitable language. Pilot could be the 



scqi 

Foil. 

wit) 

won 

New 

colo 

ins 1 1 



of 

bthe 

nior 

prov 

rcsli 

lean 

A sa 

each 

colo 



answer 



R - 
D - 
W - 
M - 
J - 



By Evelyn Mills 



p 



the 



■ere 



ilot is a language designed for 
those who are interested in 
educational programming. This 
particular version (Commodore 64 
Basic V.2) is extremely versatile, easy 
to use and has approximately 38,900 
bytes available Tor programming. 

The concept of Pilot is frequently a 
simple -question and answer' 
program, which in reality is not the 
case. Quite apart from all 
important dialogue elements th 
also exists: 

• a simplified graphics screen with full 
colour control; 

• excellent sprite designing and 
handling procedures; 

• the ability to change all keyboard 
characters to any design you wish; 

• sound programming availability 

First of all. the simplicity 
'dialogue' programming should 
studied. There are three modes 
operation - EDIT. COMMAND and 
IMMEDIATE. (The latter is 
essentially for "practising while 
learning'.) 
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jump 
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in E 
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Reqi 

In EDIT mode (press E key), texj 

may be entered directly in the form h Q 1 
wordprocessor; printer output will h: answ 
limited, however, to the normal 4tl tlegre 
column screen width. M..ic miml 
importantly, in EDIT mode, is ihc calcu 
facility to delete text, enter text .indP erm 
generally make amendments 
required. 



Real Time Programming 



j AND 
check 
TJ 
wilier 
as pec 
and e 
powe 

To get going with 'real time' fun!!] 
programming, begin in COM MANDcomn 
mode (press STOP key ) and use this iij 
conjunction with the EDIT mode: (d 
the PILOT modules are interactive! 
Consider a simply example such as; Crap 



TS: 

A: 

T: 

A: 



What is your name please? 

Hello, $%B. press RETURN 
continue. 
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B key), text 
he form of a 
itpul will be 
normal 40 
lh. More 
icde. is the 
;er text and 
time 11 is as 



ng 

real time* 
OMMAND 
d use this in 
Fmode; (all 
interactive), 
e such as: 



please? 
ETURN to 



TS starts Ihe typing instruction 
sequence which is subsequently 
followed by a T; the words typed in 
will appear on screen. A accepts the 
words or instruction ty ped by the user. 
New lines arc simply preceeded by a 
colon which is a legal continuation 
instruction. 

Naturally there must be flexibility 
of control while programming 
Otherwise the dialogue will be nothing 
more than monotonous. PILOT 
provides ample scope for this and has 
restructured Ihc more advanced 
features of Basic into a simple format. 
A sample of such features is as follows: 
each instruction must be followed by a 
colon (:) not listed here. 

PR - problem solving 
D - dimension 
W - wait 
M - match 

J - jump instruction telling the 
computer to jump a label inserted 
within the program 

C - siring computation 

To avoid answers which cannot be 
anticipated, hints may be inserted to 
combine with the match, type and 
jump commands. U (use) calls 
subroutines which arc concluded with 
an E. 



When Numerical Answers are 
Required 

Questions which require numerical 
answers are streamlined to a high 
degree, e.g. X=RND(90) returns a 
number between 0 and 89. All the 
calculations handled by the C64 are 
permissible and are computed using an 
AND operator which automatically 
clucks Tor the correct answer. 

The manual is full of examples 
which will take you through every 
BSpecl ol Pilot programming speedily 
and efficiently. You have here a a very 
powerful tool for education (and 
fun!!) working with simple structured 
commands. 



Graphics 



Tinning to the GRAPHICS side we 
Marl by entering G:E followed by the 
requisite field instructions. The \ and i 
IXCS are 319 by 192 respectively, the 
origin (0.0) being in the lower left hand 
corner. Initially the starting point 



should be defined (P) followed by the 
'draw to' locations (D). To draw a 
triangle, the command could be 
formatted as: 

G:E;P5.5:D90.5;D90.70;D5,5 

The graphics beam may be moved 
to another point location using an M. 
while lines may be erased with an R 
command: both of these commands 
need, of course, the requisite x.y, 
locations. 

In combination with this, the text 
cursor may be positioned exactly 
where required, the screen may be split 
using an S command and linked to 
Frame or Window Designing for 
maximum display effect. The full 
colour range of the C64 is available 
with single letter instructions for 
border (X). background (B) and 
foreground (F) colours. The FILL 
command (F) is used to fill a block 
with a foreground colour by specifying 
the diagonal co-ordinates in the normal 
manner (e.g. G:E:P50,50;F160;C14) 

Pilot again comes into its own by 
allowing you to design sprites on 
screen and to move them around with 
simple instructions. The BIT- 
PATTKRN (B> is used to define your 
sprite on a 21 x 24 grid, using a dot to 
create the grid and an x to indicate the 
pattern. The sprite should be given a 
number (0-7). To start the program 
type B:2 and go ahead with your 
pattern (2=sprite number !!). Having 
done so. the sprite must now be turned 
on with an S command and an op code 
(EI). An example is as follows: 

S:2:EI;CO;LI00.100 
W:I00 

The sprite will now be apparent, 
coloured black, at location 100.100 on 
your screen. 

Sprites may be expanded 
horizontally or vertically, restored to 
normal size, or used in multi-colour 
mode (M 1 ) w ith three possible colours 
in any one sprite. Again full 
instructions are given in the manual 
combined with the simple commands 
for moving sprites around the screen. 



Character Definition 

There are many applications in which 
specialised notation would be useful, 
particularly in foreign languages, 
maths, science, etc. Using Pilot a new 



character may be defined by using the 
NEWCHAR (N) instruction; the N is 
followed by a number corresponding 
to the standard ASCII code of the 
keyboard (32- 127). The code for S is 36 
for example, so N:36 will allow 
redefinition of this key. Redefinition is 
done on an 8 x 8 matrix in much the 
same manner as sprites. 



Sound 

This enhancement is very useful for 
creating extra effects in dialogue or 
animation, etc. but can only be 
regarded as a supplement and will not 
give you any degree of musical 
flexibility. Sirens, bells, locomotives 
and so forth may be programmed with 
ease to good effect and. again, the 
method is simple enough. Noise, pulse, 
triangle and sawtooth waveforms arc 
available, as are ring modulation and 
synchronisation. Volume and duration 
of notes, attack, decay, sustain- release 
are all there and a sound editor is 
available on the disk to allow you lo 
experiment with the above variables. 
Music note values are listed in the 
appendix. 

There are more advanced features 
in Pilot which show you how lo set up 
multiple choice questions with selected 
answers (look under EXECUTE), 
while the ESCAPE mode allows 
special features lo be built up within a 
program and called by the user at any 
lime. A good example is given of how 
to create a calculator which may be 
called at any point within a program. 

In the event that you w ish to create 
a long program and run out of 
memory, there is a LINK instruction 
(L:PART 2) which will load the second 
part, (and subsequenl parts if 
specified ), automatically. Naturally 
the previous program is then 
unavailable so the sub-sections should 
be independent as such. 

The normal features of saving, 
loading, printer outpui are all 
available; a "Run Only" version of 
Pilot is on the disk which means that 
your program may not be listed, edited 
or primed. The disk has an excellent 
demo, which when listed, will show 
you how to handle sprites, graphics, 
split screens and programmable 
characters. 

For the programmer. Pilot is an 
easy to use. interactive system which 
can be well recommended; nor will this 
cost you a fortune: coiiiacl Dimension 
Computers Ltd. 
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With wargames becoming ever more sophisticated, 
it's good to see that one company - CDS - has 
not forgotten the beginner. What is doubly 
unusual is that their latest title. Tank Attack, is also a curious 
hybrid: a computer moderated wargame. 

The scenario is simple. Four neighbouring countries, 
Armania, Kazaldis, Sarapan and Calderon, declare war on 
each other - well, on two of the others actually, for there 
are two firm alliances. Resources are limited to armoured 
vehicles, and the object is to blow holes in your enemy's 
command post before he does likewise to you. The game 
can be played by two to four players. There is no solo 
option. 

The battle itself is fought out on a board by moving 
little plastic tanks round a hex grid. Each country has two 
light and medium armoured cars, as well as two 
light, medium and heavy tanks. The pieces are cunningly 
designed so that you can't tell the strength of an opposing 
piece when it's on the board - you can only find out by 
attacking it. The pieces can be placed anywhere you want 
within the boundaries of your country. It's up to you to 
come up with the right balance of attack and defence. 

How far you move each turn is determined by the 
computer taking into account the weather for the day, and 
assorted other random factors. The number of hexes that 
you can move can be split between as many vehicles as 
you see fit. There are a few terrain restrictions and a bonus 
for armoured cars in open country. 

If you want to attack, you must inform the computer 
how far away from your target you are, and then disclose 
what power vehicle you have. Your enemy docs likewise, 
and the computer then works out the result of the battle. 
At this stage, you get to see the battle through a stylised 
pair of binoculars on the screen. (Incidentally, I wonder 



if the game designers have ever actually looked through 
binoculars. The sideways figure of eight view is not what 
you get. Hollywood directors please take note too.) The 
result of the battle is then displayed, effects ranging from 
total destruction to a vehicle being removed to a repair 
centre. 

That's really all there is to the game. The board looks 
attractive, and the on-screen commands are clear and simple 
to use, but (and it's a huge but) why bother in the first 
place? The game would have worked just as well without 
the computer being there. All you need to do is determine 
the move factor randomly, and look up the results of combat 
on a table. 

If. however, the game had been entirely controlled by 
computer, it could have been truly excellent. All the 
problems associated with board wargames could have been 
eliminated at a stroke, and a host of other features included 
- a save game facility should something interrupt the battle; 
a solo option; hidden movement; deliberate smoke screen 
effects; and, dare I say it, the elimination of cheating, or 
at least the urge to cheat. The idea of getting the computer 
to tell you how far you can move, and then making the 
player go and look up in the rule book exactly where he 
can move, does seem to be something of a retrograde step. 

Tank Attack is extremely well produced, but I feel that 
it is the wrong game for this combination of board and 
computer action. 

Touchline: 

Title: Tank Attack Supplier: CDS. CDS House. Beckett 
fid. Doncaster DN24AD. Price: £12.99 (cassi i 14.99 (disk) 
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DEPT (YC) 61 STAFFORD STREET, HANLEY, STOKE-ON-TRENT, 

STAFFORDSHIRE ST1 1LW 
24 HOUR ANSWER SERVICE. TEL: 0782 281544 
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HOPPIN MAD 
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HAMPSTEAD 


1.75 
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OUTRUN 
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DRFAM WARRIOR 
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SENTINEL 


1.75 


FRACTALUS 


250 


HUNTED MOON 


6.95 


DARKSIDE 


8.99 


ADRIAN MOLE 


1.75 


MAGIK 


250 


FIREFLY 


6.29 


DARK CASTLE 


8.99 


ENIGMA FORCE 


1.75 


ADDICTABALL 


2.50 


BEYOND ICE PALACE 


6.99 


BLOOD BROS 


10.50 


STAR10N 


1.75 


LIGHTFORCE 
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GRYSOR 


6.29 


BLACK JACK ACADAMY 


17.50 


ASSAULT MACHINE 
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BION1C COMMANDOS 


8.99 
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6.99 
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13.99 


CYBEKTRON MISSION 
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6.95 
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6.99 
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6.99 
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6.99 
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6.99 
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6.95 


MOON SUTTLE 
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LD 
ELITE 


8.99 
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Please cross PO/Cheques and make payable to: THE MAIN EVENT. 
To help maintain our low prices we would be obliged if you could include a first class stamp with your order, although this is NOT 

compulsory. Free Post & Packaging. Overseas please add 75p per tape. 
We apologise for any alteration or omissions since going to press. The Main Event is a division of Software City. 
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Tech 
Troubles 



Don't get stuck in a rut. 
Let our agony uncle 
help you out 



By Tim Arnot 



Dear Tim. 

I am Ir ving to gel my Commodore 64 to 
sample sounds from the cassette drive 
but have encountered a stone wall in 
actually getting it to read the signal 
coming in. I would like to know how to 
do this, and would be very grateful if you 
would send me some information on this 
subject or put an article in your 
magazine. I enclose a stamped 
addressed envelope and I look forward 
to your reply. 
N.D. Moose, Chislehurst. 



Hi Neil. 

Thanks for including an S.A.h. As a 
general point, after your letters reach 
the Your Commodore offices, it can be 
up lo a month before they reach me for 
reply, it will then be another month 
before they appear in print. So if you 
want a reply 'quickly' I will always 
send a copy of my reply in an S.A.H. 

Unfortunately (for you anyway) 
the Commodore cassette system is 
entirely digital and relies purely on the 
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Commodore cassette schematic 

time spacingB of pulse transitions for 
receiving its information. While this 
makes it extremely reliable for its job 
of loading and saving programs, for 
your application of digitising sounds, 
it is utterly useless. 

The Commodore cassette 
mechanism basically records 
information as a series of digital pulses 
of different length. A mixture of these 
lengths is then used to determine 
whether a bit is a 0 or I. Thus a I is 
represented by a short pulse followed 
by a medium pulse, a 0 is medium 
followed by a short, and the start of a 
new byte is long followed by medium. 1 
have included a brief schematic of the 
cassette read/write logic, so you can 
see what happens. Notice that the 
READ signal is fed directly into the 
FLAG input of CIA #1 (SDCOO- 
SDCFF). which is basically just an 
edge sensitive interrupt input. 

In order to sample sounds, you will 
need to employ a device called an 
Analogue to Digital Converter 
(ADC). This basically takes a 
snapshot of the sound atone instant in 



time and converts it into a number for 
use by the computer. The quality of the 
sampled sound is dependent on the 
speed at which you lake these 
snapshots. For example, compact 
disk, which is essentially sampled 
sound, has a sample rale of 28.000 
samples per second. 

To show you how to construct a 
sampler based on an ADC is really 
beyond the scope of ihis reply, 
however you can purchase them ready 
made from a number of vendors, most 
of whom advertise regularly in this 
magazine. Cost would be in thearea of 
£50. but that will also include software 
to drive it. 



Dear Tim. 

I own a Commodore Plus/4 system, and 
have a question which I hope you maybe 
able to answer: how do I go about 
programming the user port? - either 
from BASIC or assembly language? 

1 am fairly conversant with the 
method used for the Commodore 64. so 
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if ft is a similar method all I need is the 
memory locations and any other 

differences. 

Sieve Jones, Gillingham 



Hi Steve, 

Unfortunately, I have bad news for 
you - ihe Plus/4 doesn't have a user 
port! - at least not in the sense that the 
PET, 64 and 128 have user ports. 

To explain, the 64 etc. machines 
have an edge connector at the rear 
labelled Parallel user port, which 
provides a general bi-directional I/O 
port that can be used for general 
interfacing applications. And indeed 
we see a range of peripherals that use 
this port, from teletext adaptors to 
Centronics printer drivers. However. 
Commodore really intended to 
implement this port as an RS232 
interface, using a 6551 Asynchronous 
Comms chip. Due to an ordering snarl 
up, jhey couldn't get the ICs. and so 
the parallel port stayed and RS232 was 
implemented in software. 

In the UK. if we want RS232, we 
normally buy an interface that plugs 
into the cartridge port or serial bus. 
and contains said 6551 and some 
decent drivers. This is because the 
built-in port can't handle more than 
about 300 baud reliably. But in the 
States, all their modems and things 
plug into the built-in RS232. 

And so to the Plus/4. At this time. 
Commodore finally got their acl 
together and produced a real RS232 
port using the proper hardware, 
running at decent speeds {up to 19.200 
baud). This is what you have on the 
edge connector at the back of the 
machine. It is the same pinout as the 64 
(from the RS232 Viewpoint) SO that the 
64 async peripherals will plug directly 
in. This might seem to be of minority 
interest to UK users who want the 
parallel port, but unfortunately 75% 
of the users are Americans who want 
RS232. 




Dear Tim, 

I have typed in several games on my C64 
which are for a friend's son and are for a 
Plus/4. 

I appreciate that they w ill not ran on 
the 64 and that certain items like flash 
commands must be added after they are 
haded into the Plus/4 but how do I get 
them to load and list? I ob viously need to 
change the start point for BASIC but 



how do I do this, and what should it be? 
D.J. King, Huntingdon 




Hi Mr King. 

From the BASIC point of view, the 
essential differences between a C64 
and a Plus/4 is the amount of 
memory available, the additional 
sound, graphics and disk keywords of 
the Plus/4, and the start location for 
BASIC text. 

Of these three, the memory aspect 
can be discounted, since you are 
writing on the machine with less 
memory to transfer onto the machine 
wilh more. 

The start of BASIC, similarly is not 
really important, as all BASIC 
programs on the C64 and Plus/4 (and 
C16 and 128 machines)are designed to 
relocate themselves to wherever the 
start of BASIC might be. The upshot 
of this is that LOAD "PROG- 
NAME*\8 will work on any machine 
except the PHT. As to where the start 
of BASIC sits, on the C64 it is at 
location S080I. and on the Plus/4 it 
can be in one of two places, depending 
on whether you have a graphics screen 
active or not. These two locations are 
$1000 (without graphics screen) and 
$2000 (with graphics screen). 

When you type a line of BASIC 
and press the return key. the computer 
scans what you have typed for words 
that it recognises and converts them 
into one or two byte tokens. This was 
originally purely to save memory, 
since a token takes up much less space 
than the word itself. Any words that it 
does not recognise are assumed to be 
variables and so are left alone. 

When you run the program, these 
tokens are indexed into a lookup table 
which points to the section of ROM 
that performs the function you are 
asking the computer to do. If the 
keyword has not been tokenised (for 
instance typing FLASH on the 64). it 
cannot find the entry in the lookup 
table and so will crash. Similarly 
BASIC 3.5 tokens will fall off the end 
of the 64*s lookup table, and it will also 
crash. 

One further point regarding 
transfer of programs from one 
machine to the other, the cassette 
system used by the Plus/4 and C16 is 
incompatible with that used in all 
other Commodore computers, so 
programs can only be transferred 
through the use of disk media. 




Dear Tim. 

I am writing to you because I think your 
magazine seems to have a much more 
mature point of view to Commodore 
computing than others such as C+I'G 
and Commodore User. 

I have a very important question to 
ask. I have written to both magazines 
above ( with S.A.E.) and had no reply so 
I hope very much you will "try to 
oblige". I bought the C64 last 
Christmas and I have been getting on 
very well with it until I found out that I 
was leaving the country to go to Chile 
(South America). So my question is will 
it work over there? Do I need any special 
cables? If so, which? I am using a T. K. 
will I need a monitor? Will a monitor 
from over here work on it? Please reply, 
preferably with good news. 

P.S. what do you think of the letter 
quality? Printed by the "Silver Reed 
Colour Pen Graph". Could you tell me 
if there is any compatible software for it 
to draw graphics? 
Rodrigo Araya, Bristol. 




Hi Rodrigo. 

OK. the easy bit first, you don't need 
any special cables, neither will you 
need to use a monitor - a T. V. is quite 
acceptable, regardless of the country 
you are in. As for the rest of your 
question. I had to do some digging. In 
the UK. and in most of Europe, we use 
a TV system called P.A.L. which 
stands for Phase Alternative Line. 
Additionally our TV system has 625 
'scan lines* making up the entire 
picture. Chile, and indeed most of 
South America hasadoplcd a different 
TV system, called N.T.S.C. which 
stands for North American Television 
Standards Committee. Their T.V. 
system has 525 scan lines on the screen. 
The result is that the two are mutually 
incompatible, and you will have to sell 
your 64 system and buy another one 
when you get there. 

The mains voltages in Chile are 
also different to ours, and so the 64 
would not work even if you took your 
P.A.L. television with you (which 
could have been an option, although 
you would have been able to watch 
local TV on it). 

The quality of your printer is quite 
good. If it is 'Epson compatible', it 
should be able to run most of the 
printed graphics packages that are 
around at the moment. 
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Sprite Library 

More tips on Sprite manipulation on the Commodore 64 



This month we get out the geome- 
try set. All the sprite definitions 
are based on single sprites and 
use hires. The table best illustates the 
variations on this month's theme with 
a mixture of animated sequences and 
single shapes. 



GETTING IT ALL IN 

Type in the basic loader as published 
and save it-don't run it or it will self- 
destruct. Before running the loader 
program, you'll need to reset the 
computer and type directly in the 
following 

POKE43,O.POKF^,64:POKE16384,ftNEW 

- and press return. This will trick the 
computer into believing that the basic 
now starts at $4000 instead of $0801. 



by Mike Benn 

Load in the basic loader and run 
it; if error free, the program will 
automatically save itself as a block of 
data. If you reload that data in the 
future, remember to add a I after the 
device number. The data is saved in 
the following location: $2800-$37FF. 

The sprites run from 160 to 223 
in a compromise to avoid the area 




$2000, traditionally set aside for 
redefined character graphics, and to 
avoid the need of typing in line after 
line of data. 

If only one or two sprites are 
required, then use this formula - (sprite 
block N0.-I6O) *40 * 190 = the data 
line number at which that sprite blocks 
data starts. Remember to type in the 
following three lines of data, and alter 
the variable BL to the number of data 
lines you have in your finished pro- 
gram, less I. 

The small basic program GEOM. 
DISPLAY, will variously animate the 
sprites in both non expanded and 
expanded forms on the screen simul- 
taneously. To hold on any sprite, enter 
the same number for Start and End. 

Any sprite Editor program will 
enable you to change and adapt the 
individual sprites to your own 
requirements. 



TABLE (Geometric — Hires) 



A0 - A3 / 160 
A3 - A6 / 163 
A7 - AB / 167 
AB-B3 / 171 
B3 - BB / 179 
BB-BD/ 187 
BD - C3 / 189 
C3-C9/ 195 
CA - CE / 202 



- 163 Growing triangle 

- 166 Spinning triangle 

- 171 Growing square 

- 179 Rotating square Y axis 

- 187 Rotating square X axis 

- 189 Turning square 
~ 195 Rotating diamond X axis 

201 Rotating diamond Y axis 

- 206 Growing pentagon 



CF / 207 Inverted pentagon 

D0 -04/ 208-212 Growing hexagon 

D5 / 213 Turned hexagon 

D6 / 214 6 pointed star 

D7 / 215 Turned six pointed star 

D8 / 216 Cube 

D9 - DE / 2! 7 - 222 Growing octagon pattern 
DF / 223 Octagon 
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hat's mean and lough, skates and spends most 
of his lime in the sin bin? The answer is, of course, 
me playing ice hockey games. They're particularly 
suited to maniacs like myself who can cheerfully trip and 
barge opponents while supposedly scoring goals. They 
usually win the match, but we win the battle. 

Seriously, Ice Hockey is an ideal sport to be 
computerised, and many have tried before and failed to 
capture all the excitement of one of the world's fastest games. 
Now Electronic Arts has produced a version featuring 
superb 3D scrolling graphics but how docs it measure up? 

For some peculiar reason that's lost on us that live on 
this side of the pond, the game is based on only one ice 
hockey match, and is the clash between the good old US 
of A and the red menace or USSR during the 1980 Olympics, 
which to nobody's surprise is about the one and only lime 
the Americans won. There's not u hint of Glastnost in this 
game. 

The game can be played in a variety of permutations, 
from the simple one or two player games and deciding the 
length of the three periods, to determining the skill level 
of computer opponents and whether to play one on or five- 
a-s'ide hockey (that's only counting the out players). 

Either way you play, the centre is the man expected 
to score the goals and save the national honour. You control 
the centre through standard joystick controls to skate 
around the rink, but you should remember that 360 degree 
lurns at high speed aren't easy when you're skating on ice. 
SO you have to account for momentum when planning your 
moves. 

Your team meates will play in their positions. In other 
words, the left and right defense will try and slop the 
opponent's goal scoring ambitions, and try and win ihe 
puck, and the left and right wing help help move the puck 



forward and lo cither shoot themselves or pass to you. You 
can signal for a pass at anytime by pressing the fire button, 
and they'll do their best to get it to you. Then you can 
try a wrist shot or slap shot at goal or a drop pass to 
another player, which is particularly useful if a defender 
is about to clobber you. However, these moves require tricky 
joystick manoeuvres and will need some practise before you 
can defend the honour of the free world. 

You have in fact got three squads of players to choose 
from at the push of a button, they consist of the squad 
that starts each period who arc good all-round players but 
tire quickly and so you might want to opt for squad two 
who arc real pros when it comes to scoring or the cool 
in defense squad three. Be warned, that these also tire 
especially in a 20 minule period so you have to be careful 
how you play them, or you'll be left two goals down with 
only the defensive squad fit to play. 

Defensive moves are easier to learn and consist of the 
subtle slick poke by which you try and poke the puck away, 
the less than subtle slide block to steal the puck and the 
obvious body check lo take out the man. You have to be 
wary aboul how you play it otherwise the gloves will come 
off, a fight will start and youH spend between one and 
two minutes in the penalty box. 

Overall Power Play Hockey is a very good Ice Hockey 
simulation, but it's a shame that it conccnlrates on just 
a single game that was played nearly nine years ago. 



Touchline: 

Title: Power Play Hockey. Supplier: Electronic Arts, 
Langlev Business Centre, 11-49 Station Road, Langlev, Nr 
Slough, Berks., SU 8YN. Tel: 0753 49442. Price: £14.95 

(disk). 
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Personal 
File 



Database 



Avoid elaborate and time-consuming 
editing procedures with this 
word processing/ database system 

By Eric Randall 




This utility is a cross 
between a word 
processor and a 
database system. It's aimed 
at the user who needs to 
maintain files of text, and 
be able to readily update 
and amend the material, 
without the need to learn 
and remember elaborate 
editing procedures. To 
achieve this, it uses the 
C64's normal screen editing 
functions, with one or two 
more added, and all the 
instructions needed to use 
the system are displayed 
(except when setting up or 
editing a page of text). 

The data is held in 
pages containing complete 
screens of information. 
Each may be recalled and 
updated as often as 
required, using the function 
keys as explained in the 
main display. New pages 
may be inserted or old ones 
deleted, and the entire file 
in memory can be printed. 
If, when editing a screen, 
you need to refresh your 
memory on which function 
key to use, press return to 



save what youVe already 
typed in. The main display 
will appear and, after 
checking the instructions, 
recall the page you were 
editing by using the F5 key. 

Having set up a file of 
data, it may be saved to 
disk. To simplify the disk 
housekeeping, the program 
takes care of naming files, 
and you're asked if you 
want to overwrite an 
existing file. The file names 
start with "++data" and end 
with a number in the range 
0 to 9. All the user needs to 
remember is which number 
is used for a particular file. 

For the technically 
minded, the data is held as 
screen codes, not ASCII 
codes. If you want to 
extend the scope of this 
system, this must be taken 
into account. Furthermore, 
the data are compacted 
before filing to disk, so the 
disk file formats differ from 
those displayed on the 
screen. The areas of 
memory used by the system 
are as follows: 



Basic Program 


S0800 


$1185 


Housekeeping data 


-$6400 


-$64FF 


Storage for screen pages 


$6500 


-S8BFF 


Area for packing and 






unpacking data prior to 






storage on disk 


-S8C00 


- S9FFF 


Machine 


- scooo 


- $C4B0 
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For those wishing to 
experiment with and extend 
the system, the entry points 
to various machine code 
routines called from the 
main BASIC program may 
he useful. Most of these 

LOADING FILES 



routines require parameters 
which are taken from 
various locations between 
S6400 to £64 FF. These are 
set up in (he main program, 
and the references are as 
follows:- 



Lines 300-350 



SYS49320 (SC0A8) 
SYS50248 (SC448) 



SAVING FILES 

Lines 90-210 SYS50093 (SC3AD) 
SYS49299 (SC093) 
SYS49348 (SC0C4) 



- load a file 

- unpack data 



- pack data 

- save a file 

- overwrite 
existing file 



CREATING NEW PAGE OF DATA 

Lines 500-555 SYS495I0 (SC166) - turn on interup! 

routine to scan for function keys which 
tabulate up and down and which insert 
and delete lines. 



SYS49535 (SC17F) turn off inierupt 
routine 

-SYS49152 (SC000) store screen 
UPDATE PAGE 

Lines 700-720 SYS49243 (JC05B) - display stored 

page 

SYS495I0 (SCI66) - turn on interupi 

routine 

SYS49535 (SX17F)- turn off interupt 

routine 



PRINT FILE IN MEMORY 

Lines 800-840 SYS49358 (SC0CE) - Prim Tile 

DELETE A PAGE 

Lines 600-605 SYS499I6 (SC2FC) - delete a page 
INSERT A PAGE 

Lines 650-655 SYS50000 (SC350) - insert page 

USING THE SYSTEM 

To start you off using the headings of personal 
system, a data Hie is information for you to fill 

included on the disk as file in the details, 
number 0. This contains the 



Introduction to 



Graphics 
on the 



by Allen Webb 
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The first of a two-part 
series examining the 

considerable graphics 
potential of the 
Commodore 64 



For many new owners of the 
Commodore 64, playing games 
soon becomes inadequate, and 
they turn instead to programming and 
trying to emulate the graphics effects 
that the game writers achieve. The 
machine's manual will help you a little, 
but it makes no attempt to get to grips 
with the not inconsiderable graphics 
capabilities of the machines. In this 
series, 111 give you a taste of what you 
can achieve with Basic. You must 
realise that using Basic will limit your 
potential, but you will nontheless be 
able to get some excellent results. 

The heart of the graphics power 
of the 64 is the VIC chip, which has 
a collection of memory mapped 
registers which handle graphics. It's a 
rather sad fact of life that Basic doesn't 
support graphics in any way. Instead, 
you'll have to learn a collection of 
POKE commands to manipulate the 
VIC registers. Table I gives a summary 
of the registers and their functions. 

TABLE 1 



Memory Function of register 
Address 



53248-53263 Sprite position registers 

53265 Control Register I 

53269 Sprite display enable 

53270 Control Register 2 

53271 Sprite Vertical Expand 

53272 Memory Control Register 

53273 Interrupt Flag Register 

53275 Sprite Priority Register 

53276 Sprite colour mode 

53277 Sprite horizontal expand 

53278 Sprite collision detect 
553279 Sprite collision detect 

53280 Border colour 

53281 Screen colour 
53282-53284 Background colours 
53285-53286 Sprite multicolours 
53287-53294 Sprite colours 

In these articles I will explain how to 

tweak these registers to good effect. 



First 1 must discuss how the machine 
manages memory. The Commodore 
64, as indicated by its name, has 64 
kilobytes of memory. This can be 
imagined as a sequence of 65536 boxes 
with can obtain data. EAch box (or 
memory location) is numbered, start- 
ing at 0 and continuing to 65535. The 
number of the box is called its address. 

The machine uses various chunks 
of memory for various purposes. Due 
to its ROM - based software, the 64 
uses the same areas of memory for its 
various functions. You can. however, 
change things around if you wish. The 
VIC chip can address only I6K of 
memory at any one lime. The 64 has 
four "banks" of 16K available for use, 
and these are numbered as shown in 
Table 2. 



TABLE 2 



Bank Number Block of memory Z 

0 0-16383 3 

1 16384- 32767 2 

2 32768 -49151 1 

3 49152 - 65535 0 



When you turn on the 64, bank 0 is 
automatically selected. This means 
that the VIC chip expects to find the 
screen memory and the character set 
designs in this area. You can, if you 
wish, change the bank by altering a 
register in another important chip, the 
CIA number 2. The bottom two bits 
of location 56576 determine the 
memory bank in use. To change the 
bank, you use the following two lines: 

POKE 56578, PEEK(56578) OR 3 
POKE 56576. (PEEK(56576) AND 
252) OR Z 

Using some banks will give a screen 
full of garbage. I will tackle this feature 
fully next time, so forget all about it 
for now. 

The display uses a block of memory 
to hold ils contents. The display 
consists of 25 lines of 40 characters, 
requiring 1000 bytes. In the default 64, 
the screen memory starts at memory 
location 1024 and continues to loca- 
tion 2023. In order to provide colours, 
each screen location has a correspond- 
ing colour memory location. This 
occupies the 1000 bytes starting at 
55296. The colour memory is always 
at this address. Try the following 
program to sec how it works: 



10 FOR 1 = 0 TO 999 

20 POKE 1024+1. ! 

30 POKE 55296+1. RND(])*I6 

40 NEXT 1 

The machine alsoneeds to know 
what shape the characters are, and this 
information must be held in the active 
memory bank as well. Because the 64 
is an 8 - bit machine, it allows a 
maximum of 256 characters. Each 
character requires 8 bytes of memory 
to hold its shape data. Hence, the full 
character set requires 2048 bytes. Since 
there are two full character sets 
available, a total of 4096 bytes arc 
used. In the default system, the 
character set is held in a Read Only 
Memory, and is found in the block 
4096 to 8191. Because this data is held 
in this way, it occupies the same space 
as Random Access Memory, so that 
you don't lose any memory. Given 
these facts. Table 3 shows a general 
memory map: 

TABLE 3 



Memory Address 

0- 1023 
1024 - 2023 
2040 - 2047 

2048 - 40959 

53248 - 53294 
55296-56295 



Use 

Used by system 
Screen memory 
Sprite pattern 
pointers 

Used for BASIC 
programs 
VIC registers 
Colour memory 



The parts of memory not described are 
occupied by the system ROMs and 
other chips. The position of the screen 
memory and the character set are 
determined by the contents of the 
memory control register in the VIC 
chip (53272). More on that in a 
moment. 

When you put a value in a screen 
memory location, the system translates 
this value into a specific character 
pattern in the character memory. A 
value of 0. for example, uses the first 
pattern (or group of eight bytes). This 
pattern represents @ - value of one 
uses the second pattern and so on. The 
following program shows the full 
character set by POKEing the full 
range of values into the screen 
memory: 

l0FORI = 0TO 255 
20 POKE 1024+1,1 
30 NEXT I 

The next step is to place a character 
at a specific place on the screen. If R 
is the row and C the column, the 
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correct address is given by: 

!024+<R-l)*40+(C-!» 

Where R is in the range one to 25. 
and C is in the range one to 40. 

The following example uses this 
relationship as a function to move an 
asterisk diagonally across the screen: 

10 DEF FN A (R)=1024+(R-1)*40+(C- 
I) 

20 FOR R=l TO 20 
30 C=R 

40 POKE FNA (R),42: FOR D=l TO 
30: NEXT D 

50 POKE FNA (R>,32: FOR D=l TO 
30: NEXT D- 
60 NEXT R 

This routine first puts on asterisk al 
each point (character 42) followed by 
a space (character 32). The two loops 
in lines 40 and 50 are simply delays 
to give a better effect. While making 
some progress, this effect is a little 
boring. What's needed are custom- 
designed characters, but how can we 
achieve this? As I have already des- 
cribed, the normal character set is 
etched in a ROM, and what we want 
is a character set in RAM. The secret 
is to redirect the pointer to the 
character set to a handy bit of unused 
RAM. The memory control register 
allows this. The bottom four bits of 
this register decide the offset position 
of the character set in any given bank. 
Take a look at Table 4. ' 

TABLE 4 



Memory Offset L 

0 0 

2048 2 

4096 4 

6144 6 

8192 8 

10240 10 



10 POKE 53272. (PEEK(53272) 
AND240) OR 14 

20 DATA 0,60,126,102,102,126.60,0 

30 DATA 0,0.0.24,0,0,0 

40 FOR 1=0 TO 15: READ X: POKE 

14336+I.X: NEXT 1 

50 FOR 1=0 TO 7: POKE 

14336*32*8+1.0: NEXT 1 

60 DEF FNA (R)=I024+(R-I)»40+(C- 



12288 12 
14336 14 



The character set pointer is changed 
by using: 

-POKE 53272. (PEEK(53272)AN- 
D240)OR Z 

To find the start address of the char- 
acter set, you simply add the offset to 
the start address of the bank (given 
in table 2). Let us consider how a char- 
acter is designed. Here is a sample 
character: 



** 


00011000 = 


24 


****.. 


00111100 = 


60 


*• 


01100110 = 


102 


****** 


01111110 = 


126 


*• ** 


01100110 = 


102 


**..**. 


01100110 = 


102 


•* *• 


01100110 = 


102 




00000000 = 


0 



The stars represent visible dots, and 
the dots represent spaces. Each pattern 
can be converted to an eight bit binary 
number by replacing stars by 1 and 
dots by 0. These numbers are then 
converted to decimal, and the resulting 
eight numbers arc those used in the 
pattern table. Here is an example of 
a redefined character: 





00000000 = 0 


**•• 


00111100 = 60 


****** 

* 


01111110= 126 


**..**. 


01100110= 102 


** •* 

« * m 


01100110= 102 


****** 


01111110= 126 


.****.. 


00111100 = 60 




00000000 = 0 



The following example uses this 
character plus one other to produce 
stunning animation. ..Gasp! 



70 FOR R=l TO 20: C=R 

80 POKE FNA{R),0: GOSUB 200 

90 POKE FNA{R),I: GOSUB 200 

100 POKE FNA(R).32: GOSUB 200 

1 10 NEXT R 

120 END 

200 FOR D=l TO 30: NEXT D: 
RETURN 



In this example, 1 have placed the start 
of the new character set at 14336. Line 
40 reads the new character data and 
puts it into the character data table. 
Line 20 holds the design described 
earlier. Line 50 sets the space character 
(32) to a space. The rest of the 
characters are garbage, since we 
haven't set them to anything interest- 
ing. If you want to return to the normal 
character set, the quick and dirty way 
is to press RUN/STOP and RES- 
TORE together. 



The normal display comprises two 
colours, the background and the 
foreground - in Sinclair Spectrum 
terms, paper and ink and some 
border colour. These colours can be 
easily altered by putting the colour 
value (0 to 15) into the relevent register. 
The registers are: 

Border 53280 
Background 53281 
Foreground 646 

Since these registers use only the 
bottom 4 bits of the stored value, any 
value greater than 15 will simply result 
in cycling the colour sequence. In 
general, you should ensure that the 
value stored in any VIC register is 
accurately controlled since an incor- 
rect value will at best give odd results 
and at worst a nasty crash - be 
warned!! 

In the default, or high resolution 
mode, a set point on the screen is 
displayed in foreground colour, and 
an unset point in background colour. 
While this gives the greatest clarity, 
it is not best suited to pretty graphics. 
So we enter multicolour mode, which 
can give you up to four colours in any 
one character. The penalty is that the 
horizontal resolution is reduced from 
eight dots per character to four. The 
reason for this is that each pair of dots 
in the character pattern determines 
which colour is used. The colours are 
obtained as shown in Table 5: 

TABLE 5 



Colour Source 


Bit Pair 


background 53281 


00 


background 1 53282 


01 


background 2 53283 


to 


low 3 bits of 


II 


colour RAM. 
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Let us consider one byte of a pattern: 
...**»* = 0001 101 1 

In high resolution mode, this would 
look like a pair of dots. If we split 
it into four pairs of bits we get another 
image: 

0001 1011 = 00 01 10 II 



Using Table 5, we can sec that in 
multicolour mode, the first pair would 
appear as the background colour, the 
second pair would appear as a dot 
coloured in background one, the third 
as background two and the last as the 
colour ram. Because only the bottom 
3 bits of the colour ram is used, this 
bit pair can only use the first eight 
colours. The other bit is used to toggle 
multicolour mode for the particular 
character. You see, if the fourth bit 
it set, the character is set to multi- 
colour, or else it is set to high reso- 
lution. In practical terms, you simply 
add eight to the colour value (in the 
range nought to seven). This allows 
you to mix both modes on screen. To 
turn on multicolour mode you use: 

POKE 53270, PEEK<53270> OR 16 
and to turn it off: 

POKE 53270, PEEK(53270) AND 239 



The next example sets up a black 
screen and puts a multicolour char- 
acter next to the same character in high 
resolution mode. 

10 POKE 53280,0: POKE 53281,0 
20 POKE 53282,6: POKE 53283,3 
30 POKE 53270. PEEK(53270) OR 16 
40 POKE 1024,1: POKE 1025,1 
50 POKE 55296.1: POKE 55297.8 



The lines 10 and 20 set up the colour 
registers. Line 30 turns on multicolour 
mode and line 40 puts an A in the 
top left two screen positions. The first 
POKE in line 50 clears the fourth bit 
of that particular colour memory 
location, thereby setting the ink colour 
to white, and setting the character to 
high resolution. The second POKE 
sets bit 4, thereby setting the ink colour 
to white and setting the character to 
multicolour. 

Trying to design multicolour char- 
acters "by hand" is both tedious and 



difficult - if you want to get good 
results, it would be worth your while 
investing in a good quality character 
designer. 

If all of this is not enough, there 
is one more character mode - extended 
background mode. In this mode you 
have a high resolution character, but 
with a choice of four background 
colours. This lime the system gets the 
colour choice from the screen contents. 



a range of positions. This time, in view 
of its lesser size, the screen can be 
placed in one of 16 positions. These 
positions are in increments of 16. 

Table 7 shows the available options: 



TABLE 7 



In simple terms, the background 


Location of Screen 


Z 


colour depends on the character on the 


(offset from start of bank) 




screen, and the 


foreground colour 


0 


0 


depends on the colour memory. Table 


1024 


16 


6 shows how: 




2048 
3072 


32 
48 


TABLE 6 


4096 


64 






5120 


80 


Colour Register 


Character range 


6144 


96 


53281 


0-63 


7168 


112 


53282 


64-127 


8192 


128 


53283 


128-191 


9216 


144 


53284 


192-255 


10240 


160 


To turn on extended background you 


11264 

12288 


176 
192 






13312 


208 


POKE 53265, PEEK(53265) OR 64 


14336 


224 






15360 


240 



and to turn it off: 

POKE 53265, PEEK(53265) AND 191 

Here is a simple example: 

10 POKE 53280.0: POKE 53281,0: 
POKE 646,1: PRINT CHR$(!47) 
20 POKE 53284,11: POKE 53282,12: 
POKE53283.I5 

30 POKE 53265. PEEK(53265) OR 64 
40 FOR 1=0 TO 255 
50 POKE 1024*1,1 
60 NEXT I 

This is simply a repeat of an earlier 
program. Here I have used PRINT 
CHR$(I47) to clear the screen. On the 
newer 64s this fills the colour RAM 
with the current foreground colour. By 
the way don't try to use extended 
background mode with multicolour 
mode - it won't work. 

As 1 mentioned earlier, it's possible 
to relocate the block of memory used 
for the screen display by altering the 
relevent bits in the memory control 
register (53272). This time, it's bits 4 
to 7. For most users, this option is 
not of great use. but it does offer the 
option of having several screens active 
at once, with a simple means of 
switching between them. This could 
allow animation sequences, and other 
effects. 

In a manner analogous to the 
character set, the screen can occupy 



The first step is to change the pointer 
to the screen with: 

POKE 53272, (PEEK(53272) AND 15) 
OR Z 

As before, the start address offset is 
added to the start address of the 
current bank to get the absolute screen 
address. We if you intend to use 
BASIC, you must also tell the editor 
where the screen is. A pointer to the 
page occupied by the screen is held 
in location 648. This must be altered. 
You get the page by obtaining the 
absolute address of the start of screen 
memory (as described in the last 
paragraph) and dividing it by 256. The 
6502 micro-processor handles memory 
in pages of 256 bytes. The result is 
POKEed into location 648. 

I must apologise to beginners for 
the large amount of theory in this part. 
Unfortunately it is unavoidable, and 
in any event, I want this short series 
to become a simple reference guide to 
which you can refer when necessary. 

Well, that's about it for now. With 
the building blocks developed here, 
you should be able to start developing 
some interesting graphics of your own. 
Next time, I'll be looking at bit- 
mapped graphics and sprites. I will 
also include a small package of 
machine code routines which will ease 
the use of the VIC chip. 
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In the last of his 
series, Eric Ramsay 
gives some expert 
advice on 
m filing with 
l^fe Commodores 



To conclude this series, I have 
included every routine, includ- 
ing those for Basic 2 as well as 
the easier Basic 7, that is necessary for 
you to program your own files in Basic. 

I'd also like to make a few sugg- 
estions which you might consider for 
your own applications. For example, 
where you have many thousands of 
records to access, you would of course 
have the Keyfield Search Routine IVe 
already shown you. This is quite fast 
- being able to find, in my case, a 
match in one record in a file of over 
1,000 in less than nine accesses but 
there is another way: an index file. 

An index file contains details, not 
of all your records (although it could, 
this would be very wasteful), but of 
selected records. As you may recall, 
the search routine included a routine 
which repeatedly halved the numbers 
of records until it arrived at the one 
searched for a method similar to this 
could be used in order to write an 
'access' file. For example, imagine you 
have 4000 records already created, that 
have already been sorted. These could 
be sectioned, a sample record at each 
section read, and the keyfield found 
there saved in a file. This would be 
something like this: 

5000 a(0)=int(rn/2):forq=Ito5:a(q) 
=int(a(q-l)*2):nextq 

This loop has effectively sectioned 
the file, so that using them you may 
take a sample of the sorted keyfield 
at that point. 

Once having run this routine, a 
separate index file will exist which you 
can use to narrow down the search of 
a particular string within the keyfield 
by using the same loop: 

At this point, the loop to read in 
the comparison sample string has been 
opened, and is then compared with the 
search string inputted previously. If the 
search string is less than that of the 
comparison string, then obviously if 
a match is to be found it must be within 
the previous sample range. A(A-I) 
stores the record number for the 




previous range of sample, so the 
beginning variable is set to that The 
limit is set: 

FOR PO = A(beg) TO A(BEG- 
l):RREC=RSRT%(PO) 
and the read routine can be called. This 
facility automatically limits a sequen- 
tial scan to exactly the range where 
the record match is to be found. In 
a file of 4000, this -would reduce a 
search to 65 records. 

Sequential data access 
method 

If you're planning a relative file with 
a fixed keyfield, you may care to try 
the sequential data access method. 
This does not require a sequential file 
as an index, but several relative files, 
all inter-related. This is suitable only 
for a static file, one which is not 
continually being amended, added to 
or deleted from. The principle is as 
follows: 

The keyfield only is stored, 
together with its sorted record number 
in a separate relative file according to 
its alpha or numeric value. Thus, a 
record with the keyfield of Smith John 
would be filed, in alphabetical order, 
in a relative file for keyfields beginning 
with S. A short routine would detect 
the first letter of the search string, 
either by its ASCII value or by 



comparison inside a string, and then 
reading, not the full relative file, but 
the relative index file. The index file 
would be opened, and each record 
scanned until the match was made. In 
this case, the program would read the 
record: 

SMITH John 3129 

The number 3129 would direct the 
program to precisely the correct record 
number to access. 

More than 256 bytes per 
record 

Impossible, you might say. Well, yes 
and no. There's no reason why you 
should limit yourself to the DOS 
maximum of 256 bytes per record. You 
might like to try using a record as one 
field of a database record. Confused? 
Well, imagine you wanted six fields 
per record, each of 80 characters. This 
would clearly be outside the DOS 
maximum record size - 480 bytes. 

But if you were to treat each of 
the disk records as a field, then you 
could have 2088 fields in your file. 
There would be six of these fields in 
each of your file records, so you would 
have a maximum of 348 file records 
for use. Searching a particular field 
would be a doddle. To read i he first 
field of your file record would mean 
looking at the first seventh, 14th, 2 1st 
record and so on. 

Taking that a stage further, you 
might wish to consider having a 
separate relative file for each field in 
your file record. Your total file length 
could then be the total formatted 
capacity of your particular disk drive 
divided by the number of fields you 
wished to use. In this way, every byte 
of your floppy would be used. 

Taking that a stage further, if you 
used two disk drives, you could place 
half of your file record on one drive 
and the other half on the second. This 
would mean a total file capacity of 
349,696 bytes on two 1541, or 1570 
drives, and 699,392 on two 1571 drives. 
Now that would be a challenge! 
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Your chance to have your sa_ 





When I look at my 128 
and my Amiga 1 am 
reminded strongly of the 
old fable of the 
Grasshopper and the Ant. 
The Grasshopper played all 
summer long, leaping and 
gambolling all over the 
meadow, showing off, but 
never doing anything really 
useful. The Ant on the 
other hand toiled steadily 
away, doing all the real 
work and laying up stores. 
When winter came the poor 
old Grasshopper had no 
reserves so he perished. At 
least the Amiga has made it 
through the winter, and 
done enough in the video 
field to make sure it will 
prosper, but while it may 
remain the machine for the 
future, 1 maintain that the 
128 is that of the here and 
now. 

I am not knocking the 
Amiga. I think it is a 
wonderful machine. If your 
main interest in in video 
graphics then the Amiga is 
your only choice. It is what 
I had hoped the C64 would 
be like when I bought it 
nearly five years ago. I 
remember, however, 
tramping around the 
computer shops trying to 
find a decent program, and 
am amazed at the things 
that are now being done 
with a C64. Even the 
designers hadn't any idea 
how powerful it would 
prove to be. The Amiga is 
in the position now that the 
C64 was five years ago - 
full of promise and 
potential, but with no really 
great programs around to 
exploit it. I only hope 1 
won't have to wait another 
five years for the 



programmers to get to 
know the Amiga. 

I started with a C64, but 
hankered after an 80- 
column screen, so I took 
the plunge and bought a 
Commodore 128 and high- 
resolution colour monitor. I 
have never regretted it. 
Despite the scarcity of 
programs written for 1 28 
mode there were enough to 
make the 128 a real work- 
horse, and in any case one 
could revert to C64 mode 
to play Elite, Leaderboard 
World Class, Chess or 
Bridge. 

But always there was 
the sheer usefulness of the 
128. I look on my wife's 
correspondence as secretary 
of a charitable 
organisation, did Deanery 
Dates for the vicar, and 
later produced professional- 
looking posters for both of 
them. Later I ventured into 
writing simple programmes 
in the enhanced Basic that 
can be found as the 
programming language of 
Superbase. It is this tireless, 
accurate, time-saving, data- 
gobbling aspect of home 
computing which fascinates 
me. 

When the Amiga first 
arrived it was priced out of 
my reach. I could only envy 
those who could afford one. 
I think the majority of 64/ 
128 owners felt the same- 
Then came the A500, and 1 
decided that I ought to 
keep up with the times. 1 
chose the relatively cheap 
way in by buying an A500 
and having my 1901 
Monitor converted by 
Trilogic of Bradford for 
only £25. It equals the 
dedicated Amiga Monitor 



for colour and definition, 
but it can, of course, still be 
used with the CI28. 

I must confess that I 
was almost drooling over 
the new possibilities - a 
seemingly endless memory, 
and a very speedy disk 
drive. New technology 
would open the flood-gates 
and things would really 
take off. True, there weren't 
many programs available, 
and even games were twice 
the price, but time would 
cure that. The instantly 
noticeable difference was 
the graphics. No more 
clumsy blocked sprites. No 
more peering into a blurred 
screen trying to guess which 
chunk of blocks was the 
alien. I bought Defender of 
the Crown and marvelled at 
the incredible detail. Then I 
took a flight round the 
Statue of Liberty and the 
rot set in. Instead of the 
rounded lady of the C64 
(albeit floating past the side 
windows rather jerkily) I 
could see only a cardboard 
cut-out. I may be wrong. 
Maybe my copy has a 
glitch. But the first faint 
shadow of doubt had crept 
in. The sun was beginning 
to cloud over a little. I 
returned to Defender of the 
Crown. The scenery was as 
delightful as ever, but was 
the game-play a little 
stilled? Even boring? Yes it 
was. Very! I bought 
Leaderboard for the 
Amiga. Quite frankly I 
preferred the multiplicity of 
courses on the C64. And it 
played ju.st as well as on the 
Amiga. Star Glider was 
quite good, but I prefer 
Elite on the 64. 

Ah, yes, but it must be 



much better for the really 
productive work? Well. I 
have tried Scribble, 
Vizawrite Desktop and 
finally Wordperfect, but for 
a really user-friendly yet 
very powerful word- 
processor, which can be 
customised with a built in 
language, give me 
Superscript 128 in 80 
columns on the C128 any 
time. Yes I know that 
familiarity plays a part, but 
a new, powerful 16-bit 
program should overcome 
that, surely. 

I will continue to work 
with the Ant, while playing 
with the Grasshopper, 
waiting impatiently for it to 
get down to some real 
work. With 128s available 
second-hand for £125 (try 
Once Bytten) and lovely 
printers like the Panasonic 
1081 giving very near letter 
quality as cheap as £150 
new (with cable), it seems 
that the Ant has a lot of 
hard work in it yet. New 
programs and utilities are 
pouring in from America, 
and I gather that the new 
1581 3.5-inch disk drive is 
fasi and reliable (six times 
the speed and four or five 
times the capacity of ihe 
old 1541, so I'm told). Most 
of the programs available 
are tried and tested. 
Spreadsheets, databases, 
word processors and the like 
abound, all at prices far 
lower than similar material 
for the Amiga and PCs. 

So don't sell the C64 or 
128 to buy an Amiga. Save 
up a little longer, and buy 
an Amiga as well, and while 
you are waiting continue 
the good work with the 64 
or 128! 
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Routine 
Matters 

Moving ROM into RAM is too slow in Basic - but 
there is a quicker way 

By Eric Doyle 



Routine Mailers 




PROGRAM: MEMDRY I10UER 



91 10 REri TYPE THIS IN AND SflUE 
IT 

SS EO REM TYPE NEW BUT BEFORE R 
ELOADING TYPE IN PDKE43 , 1 : PO 
KE44 . 64 : POKE1 6384 , 0 : NEW 

AB 30 REM THEN LOAD THE PROGRAM 
USING , B OR ,1 - NDT ,8,1 0 
R ,1.1 

FS 40 DS-S3B4B:0E-S7344:NE-1639 

4 

DC 50 Z1-NE:G0SUB60005:Z6-ZB;Z5 
-Zl 

31 60 Z1-QE:GOSU860005:Z4-ZE:Z3 
-Zl 

95 70 Z1-OS:GOSUB60005 
9A BO PRINT "t CLR3 " 

CI 90 FORA-0T0S5S : P0KE1344+A,A: 
NEXT 

1C 100 P0KE56334,PEEKC56334)AND 
554 

3B 110 P0KE1 , PEEKCDANDES1 

AF 150 GOSUBG0015 

FB 130 P0KE1,PEEK(1>DR4 

15 140 P0KESG334,PEEKC5633 l l)0Rl 



09 150 P0KE53E7E. CPEEKC53E7S3AN 

DE401+1E 
B6 160 PR INTCHRSt 14E) 
EE 170 F0R0-1EEBBTD1EEBB*409S:P 

□KEA.ESS-PEEKCAJ : IFA-14335TH 

ENPR INTCHRSt 143 
EE ISO NEXT: IFB>999THENPR1NTCHR 

SC 14E) : END 
8D 190 FORB-1T01000:NEXT:60T01G 

O 

47 EOO REM 
5D E10 REM 
S3 SEO REM 

80 60000 REM • BYTE SPLITTER " 

Zl-BYTE TO BE SPLIT 
AE 60005 ZE-INTCZ1/SS6):Z1-Z1-Z 

5*256: RETURN 
DF 50006 REM 
DE 60007 REM 

97 60010 REM * MEMORY MOUER • Z 

1-LD OLD START: ZE-HI OLD STfi 

RT:Z3-L0 OLD END 
17 60011 REM Z4-HI OLD END:Z5-L 

0 NEW END:Z6-HI NEW END 
AA 60015 PDKEG7B,165:P0KE679 1 E5 

1 : P0KE680, 133:PQKE681 ,95:P0K 

ESSE , 165 : P0KE6B3 , E5E 
CF 600E0 P0KE6B4 , 133 : PQKEE85, 96 
: POKE68G,76:P0KE5B7, 191 POKE 

6BB, 163 

83 600E5 P0KES51.Zl : P0KEE5E,ZS 
5E 60030 PDKE90.Z3:P0KE91,Z4 
FF 60035 POKEBB , Z5: P0KEB9 , ZG 
4D 60040 5YS678 
F9 60045 RETURN 



It's not always that a whole 
character set has to be redefined, 
but moving ROM into RAM takes 
70 seconds. Machine code is much 
faster, and a memory mover is 
included in the Basic ROM, but the 
problem is how to access it. 

The memory move is called by 
several routines in the ROM. 
Principally it's called when a line of 
Basic has to be inserted into a 
program. A new line may be added 
anywhere in the program, and a space 
has to be made to allow this. This may 



mean that a few bytes or a few 
thousand bytes may have to be moved, 
so the routine has to be very pretty 
awesome. 

With no changes, the routine can 
be harnessed to move memory about 
quite happily, as long as the start and 
end addresses of the block to be moved 
are defined alongside the end locations 
of the new location. The two end 
locations arc the actual end locations 
plus one byte. 

First of all, the subroutine will need 
to know these locations, so another 



subroutine is required that will split 
the high and low bytes of the three 
locations needed. Using a local 
variable, Zl, the three bytes can be 
dealt with separately by this routine. 

60000 REM • BYTE SPLITTER • 
Zl-BYTE TO BE SPLIT 
60005 Za-INTCZ1/E5BD :Z1-Z1-Z 
5*256 : RETURN 



The ROM characters are stored 
from 53248 to 57344, so these two 
values are fixed. It only remains to 
decide where the characters are going 
to be stored. The screen is located at 
1024. so the rcdcfinablc characters will 
have to be located somewhere in the 
first !6K. By raising Basic start to 
16384. the start of the character set 
could be 12288. 4096 (57344-53248) 
bvtes are going to be moved, so the 
end location is 12288+4096 or 16384! 

Moving Experience 

The byte splitter routine returns the 
high and low byte values of each 
location as Z2 and ZZ1 respectively 
so, after each location has been split, 
the program must reasign these 
variables as something else. Our block 
moving routine will use four variables 
from this process so Z6 to Zl can be 
used: 

60010 REM ■ MEMORY MOUER * Z 
1-LO OLD STflRT:Z5-HI OLD STA 
RT:Z3-L0 OLD END 

60011 REM Z4-HI OLD END:Z5-L 
0 NEW END:Z6-HI NEW END 

The ROM routine takes the start 
location from locations 95 and 96 (lo- 
hi format), the end location is stored 
in 90 and 91, and the new end location 
is expected to be in 88 and 89. This 
would be a simple case of poking the 
calculated values into these locations, 
except for one thing - locations 95 and 
96 are frequently used by Basic, and 
would be cleared by the POKE routine 
itself. 

The only way round this is to set 
up a very short machine code routine 
which stores these two values and then 
jumps into the ROM routine at 41919. 
This is done by storing the high and 
low bytes in the free zero page 
locations 251 and 252 before the 
routine is called. 

First the code routine is installed, 
then the memory locations are filled 
with the correct values, and the code 
is executed with an SYS call: 
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60015 P0KE678,165:PDKE679 1 B5 
1 : PDKE680 , 1 33 : P0KE6ai , 35 : POK 
E6BB , 1B5: P0KE593,?5a 
60050 PDKE684 , 133 : P0KE685 , 35 
: PDKE686 , 75 i PDKE6B7 , 181 : POKE 
6BB, 1B3 

60025 P0KEE51,Z1:PDKE25E,Z2 
80030 POKE90,Z3:POKE91,24 
50035 POKEBB.ZS^OKEBB.ZB 
60040 5YS67B 
60045 RETURN 



The machine code is entered as a 
series of pokes, because a loop which 
read data in could cause problems with 
data recessing whenever this routine 
was called, especially if there arc data 
statements in the main program. 

To demonstrate the use of the 
program, there is a routine in the 
Listings pages at the back of the 
magazine which demonstrates how to 
move the character block into RAM, 
and then redefines all 256 characters 
as reversed versions of their original 
forms. After a short pause, this process 
is reversed to restore the characters to 
their original appearance. 

The loss of 14335 bytes of memory 



may seem like a large sacrifice, but the 
spare memory below 12288 could he 
used to store sprite date for sprites 32 
to 191. Alternatively, the screen could 
be moved higher up the memory, and 
the character set stored alongside it. 
This would mean a fairly complex set- 
up routine, however. 

Another use for this memory space 
would be to store a second character 
set. The character set in use could be 
moved to 2048 and the second 
character set could be moved from 
6144 to 12288. In this way, the two 
sets could easily be swapped at will. 

Apply Yourself 

ROM moving is not the only 
application for this routine. Another 
exercise would be to use the routine 
in a program based on pull-down or 
pop-up menus. Even though the menu 
may only overwrite three lines of the 
screen to a width of maybe ony six 
or seven characters, the move 
subroutine could be used to store all 
three complete lines in the memory 
arc at 49152. After the menu 



selection is made, the same routine 
could restore the three lines instantly. 

I'm sure that you will come up with 
many more ingenious applications, but 
remember that the memory mover is 
a one way device. For example, a block 
of memory could be moved to start 
at 2049 if its original start was 2048, 
but it couldn't be moved to 2048 if 
it started at 2049. The reason is that 
the memory moves work from the end 
to the start. Imagine that the block 
starts at 2049 and ends at 2100. If a 
move is attempted to cover 2048 to 
2099, what would happen? 

First of all, the routine would pick 
up the content of 2100 and store it 
in 2099. Next, the content of 2099, 
which has just been overwritten, would 
be moved to 2098 and so on. The result 
would be a block from 2048 to 2100 
which would only have one byte, that 
which was in 2100 originally! For 
safety's sake, make sure that any block 
moves don't access locations which the 
block to be moved already occupies. 
You can jump either way, but if you're 
going to jump, make it a big one. 



Binders 



Organise and protect your disk with 
Commodore Disk User disk binders and 
data disks. J 

Why not keep your Commodore Disk User program 
collection alongside your magazines in a stylish Disk User disk 
binder? The binder comes complete with 10 disk sleeves to 
organise and protect your program disks. Why not buy a disk 
binder to house all of your data disks? We can even supply 
Commodore Disk User data disks. The Commodore Disk 
User logo immediately identifies your disks and there's room 
to title them and document the disks details. 
Send for your disks and binders now! 




?! 




Prices are as follows: 

Commodore Disk User Binder £4.95, including 

10 sleeves. Order code BDYUI 

Commodore Disk User Binder with 10 sleeves and 

10 disks, £9.95 Order code BDYU2 

10 sleeves for insertion in binder, £1.50. Order code 

BDSIO 

20 sleeves for inclusion in binder, £2.75. Order code 
BDS20 

10 Commodore Disk User data disks, £5.95. Order 
code BDDIO 




PRODUCT NAME 


ORDER CODE 


QUANTITY 


PRICE 


































Overseas postage add £1.00 






TOTAL 



All orders should be sent to: YOUR COMMODORE, READERS SERVICES, ARGUS SPECIALIST 
PUBLICATIONS, 9 HALL ROAD, HEMEL HEMPSTEAD, HERTS HP2 7BH. 
Please allow 28 days for delivery. 
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BEGINNERS 

First Steps 

The CI 28, C16 and Plus4 all have their own sets of 
strange error messages 

By Norman Doyle 



The extended Basics of the newer 
Commodore computers mean 
that extra error messages are 
required which don't feature on the 
C64. The CI6/Plus4 machines added 
another six, and this was built-on with 
the advent of the CI 28 by a further 
five. 

Can't Resume 

Occurrence: programming error 

The TRAP statement acts like a 
GOSUB command, but acts globally 
like an interrupt routine. Whenever 
any error occurs, the program jumps 
to the error handling subroutine 
situated at whatever line number 
follows TRAP. The subroutine is 
terminated by RESUME, which acts 
like a RETURN in a GOSUB routine. 
If a program is written with the error- 
handling routine at the end and no 
END command is encountered, 
execution will run into the error 
routine, and when RESUME is 
encountered this error message will be 
generated. 

Loop Not Found 

Occurrence: programming error 

This means that a DO command 
has been encountered, but the program 
cannot find a corresponding LOOP 
command. 

Loop Without Do 

Occurrence: programming error 

This is the opposite of the previous 
error. It occurs when a LOOP 
command is encountered but a DO 
command isn't currently active. 

Direct Mode Only 

Occurrence: user error 

Some of the extended Basic 
commands, such as AUTO, can only 



be used in direct mode. In other words, 
they must be typed onto the screen, 
and then the RETURN key must be 
pressed. Any attempt to include such 
a command in a program will be met 
with this message. 

No Graphics Area 

Occurrence: programming error 

This means that the HEADER 
command was used without an ID to 
rename a disk without going through 
the lengthy procedure of formatting. 
Unfortunately, the disk chosen hasn't 
yet been formatted, so the solution is 
to repeat the HEADER command 
with an ID added. 

Bad Disk 

Occurrence: carelessness or bad luck 

At best, this means that the 
HEADER command was used with- 
out an ID to rename a disk without 
going through the lengthy procedure 
of formatting. Unfortunately, the disk 
chosen hasn't yet been formatted, so 
the solution is to repeat the HEADER 
command with an ID added. 

At worst, it means what it says - 
the disk is faulty. This can be caused 
through rough or careless handling, 
but occasionally it means that the disk 
was faulty in manufacture or simply 
worn out through over-use. Throw the 
disk away and start again with a fresh 
one. 

The next group of errors are the ones 
which only appear on the CI 28. 

Bend Not Found 

Occurrence: programming error 

When an IF.. .THEN BEGIN or 
IF.. THEN. ..ELSE BEGIN construct 
is found, the computer then looks for 



the corresponding BEND command. 
If it can't find one, it flags this error. 

Line Too Large 

Occurrence: rare 

The highest possible value for a 
program line is 63999. If an attempt 
is made to RENUMBER a program 
and any of the renumbered line values 
will exceed 63999, the command is 
aborted without being executed, and 
this error message is displayed. 

Unresolved Reference 

Occurrence: program error 

If an attempt is made to renumber 
a program and the programmer has 
erased a line which is referenced bv 
a GOTO, GOSUB, ON or TRAP 
command, the RENUMBER routine 
will not be able to execute properly. 
Once again the command is aborted 
without any action being performed, 
but this time the unresolved reference 
message is returned. 

Unimplemented 
Command 

Occurrence: program error 

Two commands are included in 
C128 Basic, but have no action 
associated with them. These 
commands are QUIT and OFF. If 
either is used, the computer politely 
reminds the user that it is an 
unimplemented command. 

File Read 

Occurrence: operational error 

This means that a file or program 
has failed to load. The reasons could 
be because the disk has been damaged 
or because an over-anxious user has 
opened the drive door before the 
program has finished loading. 
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Contributions 

So you own a Commodore? So you've 
written some programs? So why haven't you 
sent them to us? 



y 

A. aw i ommodore is always on the 
look out for new programs, hints and 
tips, articles and even regular series. In 
fact-tf you have something thai you 
think could be of use lo other Commo- 
dore owners we want to hear about it. 

So it you have got something which 
you think we may be interested in. 
How do you go about submitting it to 

LIS? 

Below you will find a list ol guide- 
lines that will help us to deal with any 
item that you send in to us. We don't 
expect everybody to be the next 
William Shakespeare but if you do 
follow these simple rules then it will 
make our job a lot easier. 

1) If possible all material sent lo the 
magazine should be typed or printed 
out on a computer printer. 

2) All text should be double spaced i.e. 
there should be a blank line between 
each line ol text. You should also leave 
a margin ol" about 10 characters 
around the text. 

}) On the very first page you should 
put the following: 

Name of the article 

Machine that it is for 

Any extras required - disk, printer 

etc. 

Your name 

Your address 

Your telephone number 

4) The top of every page should have 
the following information on it: 

Abbreviation of the article title 

Your name 

The page number 



For example, suppose you had 
submitted an article on C64 interrupts. 
You should put something like the 
following at the head of the page: 

Interrupts/J. Smith/I 

5 1 Please make sure that you do not 
make any additional marks on your 
text especially underlining. 

6) Try and write in clear concise 
English, it does not have to be a work 
of literature but it must be comprehen- 
sible. 

7) On the bottom of each page you 
should put the word MORE if there 
are more pages to the article or ENDS 
if it is the last page. 

8) If possible, enclose a listing of all 
programs. 

9) Under no circumstances use a 
staple to hold the pages together. Use a 
paperclip instead. 

1(1) Programs should be included on 
either disk or tape. Make sure that you 
SAVE two copies of every program so 
that we haveabetterchanceof loading 
then) if problems occur. 

11) Programs under 10 lines can be 
included in the text. If your program is 
longer than this you must enclose u 
disk or cassette. 

12) If your article needs any artwork 
then supply clear examples of what is 
needed. We don't expect vou to be an 
artist but we do need to see what is 
required. 



13) Photographs, if necessary, must 
be either black and white prints or 
colour slides. We can take shots our- 
selves so don't worry about this too 
much. 

14) Submissions of any length are 
welcome. If you have a five line routine 
that you think may be of use to 
someone else we welcome it just as 
much as a full blown six part series. 

15) Payment varies quite a lot and de- 
pends on quite a number of factors, 
such as complexity of program, 
presentation of program, number of 
magazine pages it takes up etc. Pay- 
ment is generallv between £ 10.00 and 
£800.00. 

16) All payments are made in the 
month that the magazine containing 
your article has appeared in print. 

17) If we do find your submission 
suitable for inclusion in the magazine 
we will write lo you giving the terms of 
publication, the rate of payment and 
an agreement form. Prompt return of 
this form will allow us to use your 
program as soon as possible. 

18) If you want the program return- 
ing to you, should we find it unsuitable 
lor publication, then you should 
enclose a stamped self addressed 
envelope. 

19) The last and most important point 
to make is 'get writing', we are watting 
for your articles. 
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Figure 1 



CONTROL 



SECTION 



ENTRY KEY 



ENTRY 



Electronic Notebook is an elec- 
tronic implementation of the 
very popular Personal Organ- 
iser. It provides the means by which 
information can be stored, under a 
key, in a file. It does this by utilising 
database techniques similar to those 
on mainframe computers. 

An Electronic Notebook file can 
be as small or as large as you require, 
up to the maximum size of the disk. 
On the 1541 disk drive this will be 
around 3500 records, but on larger 
disks with a capacity of I megabyte 
the number increases to 24000. A 
single Electronic Notebook file 
contains four different record types 
which are used to implement the 
database structure (See Figure I). The 
records form a hierarchical structure 
at which each level holds varying 
degrees of information required by the 
user. The four records are: 



Electronic 
Notebook 

Get yourself organised with this powerful database 

By L. Keighley 



CONTROL This record holds control 
information about the 
usage of the database. 
This includes details of 
where the first empty 
record is and what the 
access password is. The 
user is not given access to 
this record it is 
maintained by the Elect- 
ronic Notebook program 
alone. 



SECTION This record is the Header 
or Folder under which in- 
formation is to be stored. 
Apart from pointers to 
the next and last Section 
records and pointers to its 
next and last Entry Key 
records, it holds the Title 
of the section and its type. 
The types allowed are 
Labels, Notes and Text. 



ENTRY This record holds the 
KEY key to the information 

that is to be stored below 
it, along with the pointer 
to the first Entry record. 
Pointers are also held to 
the next and last Entry 
Key records. 



ENTRY Each Entry record holds 
up to 35 characters of in- 
formation along with the 
pointer to the next Entry. 
If the information to be 
held is of the Text type 
a seventy character line is 
made up of two 
consecutive Entry 
records. 



The Section records can only be 
accessed by stepping through all those 
present, but the Entry Key records can 
be obtained using the given Key. 

All the records at each lever are 
'owned' by a record at the level above. 
For example, a Section record may be 
designated as 'Addresses' and may 
have below it two address Entry Keys 
for 'Fred' and 'Joan' below each of the 
Entry Key records will be any number 
of Entry records that it takes to hold 
all of the address for each person. The 
records held at all levels below Control 
are held in 'chains'. 

The program allows maintenance 
of all user information, add/delete, 
insert, at the lowest three levels with 
the exception of key information, this 
is restricted by password. All the 
'chains' are held in sequence of key 
and to change the key requires that 
their position in the chain is altered. 
While the physical position on the disk 
of the record does not change all the 
pointers around its old and new 
positions must be amended. This 
action requires the reading and writing 
of a number of records and therefore 
takes some lime. 

The database could be used as a 
diary if each Entry Key within a 
Section called 'Diary' was given the 
date of each day in the year. 

The hardcopy output facilities 
provided by Electronic Notebook are 
Labels, printed in single or two up 
form. Notes, again printed in single 
or two up form and Text printed as 
seventy character lines. 

Access to the facilities of Electronic 
Notebook are from an on-screen 
menu. Functions are selected by 
keying the appropriate number. Some 
require two numbers to be keyed, the 
first to select general function and and 
the second to select the specific 
function. 
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Control: 

E First available empty record 
El End of file + I record 

51 First Section record 

52 Last Section record 

M Maximum number of records 
M I Marker Types used 
PS Password 

Section: 
T$ Title 

53 Next Section 

54 Last Section 
E2 Next Entry 
E3 Last Entry 
TIS Type 

M2 Marker 

Entry Key: 

E4 Next Entry 
E5 Last Entrv 
K$ Key 

Nl Next Entry 

Entry: 

N2 Next Entry 
D$ Data 



Operating Instructions 

1 Load and Run the program 
•ENOTEBOOK', a menu will then 
be displayed of all the actions that 
are allowed on the database. 

2 To select an action, with the 
exception of 'Initialise', requires 
that two keys be pressed. The first 
selects the area of the database that 
is to be worked on or the print 
option and second selects the type 
of action. 

3 When entering Text information 
the V cannot be used. This is 
because of the way in which the 
computer takes data in from the 
keyboard. The comma is used to 
indicate the end of input for one 
field and the beginning of input for 
the next. So that, the comma can 
be entered in text the ' 3 1 should 
be used. This will result in a comma 



being displayed on the screen and 
printed where necessary. 
'9' must always be selected from the 
menu to end the program this 
ensures that the database is closed 
correctly and the last buffer of 
information is stored on the disk. 
When a new database is set up the 
number of database records 
allowed can be varied from 500 up 
to 3500. Each record has to be 
written to the database and 
therefore this takes some time. The 
database already set up has 2500 
entries and took approximately 10 
minutes to intialise. 
The password when correctly 
entered allows the pointer fields to 
be amended. This can corrupt the 
database if done incorrectly, hence 
the password. The password for the 
sample database is 'CDUCDU'. 



C16 and PLUS/4 PROGRAM 



Head for Home 



Challenge your friends to 
a version of one of the 
World's oldest hoardgames 



Head for Home is presented in 
the form of two Basic 
Loaders. These should be 
typed in and saved sepcrately. If using 
tape make sure that you alter the 
DLOAD at the end of the first 
program to a LOAD instruction. 

Care should be taken when 
entering the program, as some of the 
lines contain machine code. A single 
mistake on entry would cause the 
program not to work. 



Getting Going 

Once the program is up and running, 
you will be asked if you require 
instructions and the number of 
players. Head for Home is designed 
for 2 - 6 players. 

To start the game, a player needs 
to throw a six on the computer dice. 
The play rotates around the players 
until one scores a six. If no move is 
possible a sound will tell you. Once 
a player throws a six the dice is rolled 
again until a different number is 
thrown. The sum of the dice throws 
becomes the number of positions that 
a player can move, though it costs a 
six to move a man onto the board. 

When a move is required a cursor 
will appear on the screen. The Player 



should press one of the numbers I - 
4, depending on which piece they wish 
to move. The move is only accepted 
if it is legal. If no move can be made, 
press P to pass. 

Pieces move in the same order as 
the die throws. So, if you have two 
sixes and a three and press 2 4 1, pices 
2 and 4 move 6 spaces and piece I 
moves 3. Entering 2 2 2 would move 
piece 2 15 spaces. 

Each playing piece travels around 
the board once. When it leaves the 
white track and moves onto the last 
5 coloured spaces. The exact number 
must be thrown in order to reach home 
base. 

That's all there is to it - have fun! 
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Software 
for Sale 



If you think that one of our programs looks very interesting, but you can't 
afford the time to type it in, then our software service will help you out 



X t'S three o'clock in the morning. You sit at the computer 
keyboard having just finished a marathon typing session 
entering one of the superb programs from Your Commodore. 
Your fingers reach for the keyboard and press the letters R. 
Uand N. You press RETURN. sit back and nothing happens. 

Everyone has probably faced this problem. When it does 
happen it's u mailer of spending hours searching through 
the program for any typing mistakes. No mailer how long 
you look or how many people help you. you can usually 
guarantee that at least one little bug slips through unnoticed. 

The Your Commodore Software Service makes available 
all of ihe programs from each issue on both cassette and disk 
at a price of £6.00 for disk and £4.00 for cassette. None of ihe 
documentation for the programs is supplied with the 
software since it is all available in the relevant magazine. 
Should you not have the magazine then back issues are 
available from the following address: 

INFONET LTD. 5 River Park Estate. Berkhamsled. Herts 

HIM IHL. 

Tel: (04427) 76661 

Please contact this address for prices and availability. 

The Disk 

Programs on the disk will also be supplied as total I) working 
versions, i.e. when possible we will not use Basic Loaders 
thus making use of the programs much easier. 
Unfortunately at the moment we cannot duplicate C 16 and 
Plus/4 cassettes. However programs for these machines will 
be available on Ihe disk. 

What programs are available'.' 

Al the lop of each article you will find astrapconiaining 
the article type. C64 Program etc. So lhat you can see which 
programs are available on which formal, you will also find a 
couple of symbols after this strap. The symbols have the 
following meaning: 



This symbol means that the program is available on cassette. 



Please Note 

Since the programs supplied on cassette are tolal working 
versions of ihe program, we do not put disk-only programs 
on lape. There is no sense in placing a program lhat expects 
to be reading from disk on to tape. 

OCTOBER 1Qgfl 

SPRITE LIBRARY - In this instalment our sprites take 
on Ihe look of Ihe alphabet (C64) 

SAMPLER 64 - See September 1988 for details (full 
program on both September and October disks and tapes). 
SET THE ALARM - Use the C64*s in-built clock as an 
alarm. 

JACK IN THE BOX - A handy box utility for Basic and 
machine code programmers (C64). 

FILE EXTENSION - Modify your disk directory so that 
you can load all vour programs with ease (C64 disk only). 
HI-RES/MULTI/COLOUR PLOTTER A selection of 
plot routines for both Basic and machine code programmers 
(C64). 

JOYSTICK CURSOR - Let your joystick emulate the 
cursor keys (C64). 

HI-RES FILL - A superb machine code fill routine for 
all graphics programmers (C64). 

CODE RELOCATION Change your machine code 

programs so that they will run in any area of your C64*s 

memory. 

ORDER CODE 

TAPE YCOCT88 £4.00 

DISK YDOCT88£6.00 



These programs are available on disk. 



NOVEMBER 1988 

SECRET WRITING — Learn how to conceal messages 
and how to protect vour Basic programs (C64). 
PAINLESS WINDOWS - Extend the power of the CI28's 
WINDOW command. 

UNLOCK HIDDEN 128 POWERS - Use the full keysel 
of your CI28 in C64 mode. 

WILLIAM TELL - Fight off the Austrian soldiers in this 
great C64 arcade game. 

TALKING COMPUTERS - Use speech synthesisers with 
your C64. 
ORDER CODE 
TAPE YCNOV88 £4.00 
DISK YDNOV88 £6.00 
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<■£> 



DECEMBER 1988 

F-KEY LABELLER Use your Commodore printer to 
produce a template for your function keys (C64). 
+4 DIRECTORY EDITOR Rearrange your Plus/4 disk 
directory entries however vou like. Available on disk only. 
DOUBLE HEIGHT - Enhance your C64 text displays with 
a double height character set. 

PROGRAM PROTECTION - Protect your latest C64 
masterpiece from prving eyes. 

SPRITE CONTROLLER - Basic sprite manipulation made 
easy. C64. 

GRAPHIC EDITOR - A quick and simple C64 UDG 
editor. 

MASTERING THE RASTER The source code to 
accompany our article on raster interrupts (C64). 
CREATING CHARACTERS Give your Plus/4 and 
Commodore printer a better print quality. Available on 
disk only. 

WILLIAM TELL - See November for details (C64). 

ORDER CODE 
TAPE YCDEC88 £4.00 
DISK YDDEC88 £6.00 

JANUARY 1989 . 



WILLIAM TELL Our popular arcade game lor the C64. 
+4 AUTORUN - Improve tape loading on your Plus/4 
cassette. Only available on disk. 
MINIBASE - A database for C128 owners. 

ORDER CODE 
DISK YDJAN89£6.00 
TAPE YCJAN89 £4.00 

FEBRUARY 1989 

TAPE MENU - Add a menu system to your program 
cassettes (C64). 

SONIC EFFECTS - A superb sound editor for the C64. 
F DUMP - Dump your C64 text screens to printer with 
ease. 

DATA LOADER - A simple wav to enter those reams 
of C64 DATA lines. 

SPRITE LIBRARY A collection of birds to your growing 
library (C64), 

PLAY THE GAME - A superb fruit machine programe 
for the Plus, 4. {Available on disk only). 

ORDER CODE 
DISK YDFEB89 £6.00 
TAPE YCFEB89 £4.00 



PREFAB SPRITES - A powerful sprite editor for the C64. 
DAZPRO - A simple but helpful text processor for the 

C64. Available on disk and cassette but will only store files ^ 

on la P e - Cassettes or disks are available from March 1986. Please 

UDG COMPRESSOR - Save on memory when using ring the editorial office «) 1-437 0626) fur details of these. 

UDG's in your programs. For C64 only. _ _ ^ _ _ 



ORDER FORM - PLEASE COMPLETE IN BLOCK CAPITALS 



NAME 


QTY 


TAPE/DISK 


ORDER CODE 


PRICE 
































MARCH 89 




TAPE (£4.00) 


YCMAR89 




MARCH 89 




DISK (£6.00) 


YDMAR89 




OVERSEAS POSTfl 










TOTAL 





NAME 



ADDRESS 

POSTCODE 

I enclose a cheque/postal order for £ made payable to ARGUS SPECIALIST 

PUBLICATIONS LTD. 

All orders should be sent to: YOUR COMMODORE, READERS SERVICES. ARGUS SPECIALIST 
PUBLICATIONS, 9 HALL ROAD, HEMEL HEMPSTEAD, HERTS HP2 7BH. 
Please allow 28 days for delivery. 
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Listings 

Get it right first time with our deluxe program system 

for the C64. 



u may have noticed thai our 
listings are free of those horrible little 
black blobs which send you searching 
around the keyboard for a suitable 
graphic symbol. You may also have 
noticed the funny numbers by the side 
of each line of the listing. Fret no more, 
it's all part of our easy entry aid. 

Instead of those nasty graphics and 
rows of countless spaces in PRINT 
statements and strings we use a special 
coding system. The code, or 
mnemonic, is always contained in 
square brackets and you'll soon learn 
to decipher their meanings. 

For example, [SA] would mean 
type in a Shifted A, or an ace of spades 
in layman's terms, and [SAIO] would 
mean a row of ten of these symbols. 

[S+2] means hold down the shift 
key and press the plus key twice. It 
doesn't take a great leap of logic to 
realise that [C+2] means exactly the 
same thing except that the Commo- 
dore key (bottom left of the keyboard) 
is held down instead of the shift key. 

If more than two spaces appear in a 
statement then this will be printed as 
[SPC4] or, exceptionally. [SSPC4]. 
Translated into English this means 
press the spacebar four times or in the 
latter case hold the shift key down 
while you do it. 

A string of special characters could 
appear as: 

[CTRL N. DOWN2,LEFT5,BLUE, 
F3.C3J 

This would be achieved by holding 



down the CTRL key as you press N, 
press the cursor key down twice, the 
cursor left key five times, press the key 
marked BLUE while holding down the 
CTRL key. press the F3 key and. 
finally hold the Commodore key down 
while pressing the number two kcy(C2 
would of course make the computer 
print in brown). 

Always remember that you should 
only have a row of graphics characters 
on your screen with no square brackets 
and no commas, unless something like 
this appears: 
|SS],[C*| 

In this case the two characters should 
have a comma between them. 

On rare occasions [REV T| will 
appear in a listing. This is a delete 
symbol and is created by entering the 
line up to this mnemonic. Then type a 
closing quotation mark (SHIFT & 2) 
and delete it. This gets the computer 
out of quotes mode. Hold down CTR L 
and press the number nine key 
(RVSON). type the relevant number of 
reversed T's and then hold down 
CTRL and press zero (RVSOFF). 
Next type another quotation mark and 
delete it again. Now finish the line and 
press RETURN. 

A list of these special cases is given 
in the table but remember that only 
one of these mnemonics will appear 
outside of a PRINT string: the symbol 
for pi. This may appear when its value 
is needed in a calculation so this may 
look something like: 



:CC=2*[PI]*R: 

Ignore the square brackets and just 
type in a shifted upward pointing 
arrow (ie. the pi symbol). 



PROGRAM; SVNTftX CHECKER 



by Eric Doyle 



S REfl SYTAX CHECKER - ERIC OQVLE 

10 BL-10 :LN-70 :SA-491S8 
80 FDR L-0 TO BL:CX-0:FOR D-0 TO 

as 

30 READ A: IF A>8SSTHENPRINT"NUnB 
ER TO LAR6E";LN*(L»10):ST0P 
10 CX-CX-A:POKE SA*LM6*D, A: NEXT 
D 

SO READ A: IF A><CX THENPRINT"ERR 

DR IN LIN£"iLN-aM0).5TOP 

60 NEXT L:SYS 49158:NEW 

70 DATA 173.5,3,301,165,208.31.1 

80. 165,9. 141.38,80B, 141,33.80B,1 

B47 

BO DATA 163,7.111,134,8,163,13,3 
8.810,855.163,64, 141 ,4.3. 169, 168 
8 

90 DATA 138.141.5,3,88,36,180,16 
3,184,141.4.3.163,165.141,5,1566 

100 DATA 3,169.14,141,134,8,141. 
38.808.163,6, 141 , 33 , 808 , 88 , 35, IS 
85 

110 DATA 38.184,185.78,138,78,15 
8.78, 168,0, 165,80,133,854. 165.81 
, 1747 

180 DATA 84.101,854,133,854,183. 

0.8.840.16,63,854,133,854,838,16 

9,8346 

130 DATA 0,8.840.9,84,101.854.13 
3,854.838,808.833, 169, 1,141,134, 
8134 

140 DATA 8,165.854,74,74.74.74.3 
8.IS6. 198.38,810,855, 165.854.41, 
80S4 

150 DATA 15,38, 1S6, 198,38.810.85 
5.169.13,38.810,855, 169,13,38,81 
0, 1995 

160 DATA 855,169,7,141,134,8.104 
. 158 , 104 , 1 70 , 104 . 96 , 84 , 105 , 49 , 80 
1, 1838 

170 DATA 58,16.1,85,84,105,7,96, 
0,0,0,0,0,0,0.0.403 
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Checksum Program 

The hexadecimal numbers appearing 
in a column to the loll of the listing 
should not be typed in with the 
program. These are merely checksum 
values and are there to help you get 
each line right. Don't worry ij - you 
don't understand the hexadecimal 
system, as long as you can compare 
two characters on the screen with the 
corresponding two characters in the 
magazine you can use our line 
checking program. 

Type in the Checksum Program, 
make sure that you've not made any 
mistakes and save it to tape or disk 



immediately because it will be used 
with most of the present and future 
listings appearing in Your 
Commodore. 

At the start of each programming 
session, load Checksum and run it. 
The screen will turn brown with yellow 
characters and each time you type in a 
line and press the RETURN key a 
number will appear on the screen in 
white. This should be the same as the 
corresponding value in the magazine. 

If the two values don't relate to one 
another, you have not copied the line 
exactly as printed so go back and check 
each character carefully. When you 
find the error simply correct it and 



press RETURN again. 

If you want to turn off the checker 
simply typeSYS49l52 and the screen 
will return to the (amiliarblue colours. 
You can then do whatever it was you 
wanted to do and if this doesn't use the 
area where Checksum lies you can go 
back to it with the same SYS 
command. 

No system is loolproof but the 
chances of two errors cancelling one 
Many of the listings are presented in 
lower case. To turn your computer to 
lower case mode press the 
Commodore key and I he SHIFT key 
at l he same time. 



Mnemonic Symhol Keypress 

(RIGHT] 
[LEFT] 
|DOWN| 
[UP] 
[Fl] 



[F2| 
[F3| 
[F4] 
IF5] 
[F6] 
[F7] 
[F8] 

(HOME] 

[CLR) 

[RVSON] 

|RVSOFF| 



ii 



CRSR left/right 
SHIFT & CRSR left/right 
CRSR up/down 
SHIFT & CRSR up/down 
fl key 
SHIFT & fl key 
O key 

SHIFT & Q key 
15 key 

SHIFT & f5 key 
17 key 

SHIFT & 17 key 

CLR/HOME 

SHIFT & CLR/HOME 

CTRL & 9 

CTRL & 0 



Mnemonic Symhol Keypress 


| BLACK | 1 


M CTRL & 1 


[WHITE] I 


ffl CTRL & 2 


[RED] I 


H CTRL & 3 


[CYAN] | 


^ CTRL & 4 


[PURPLE] V 


U CTRL & S 


[GREEN] d 


|i CTRL & 6 


[BLUE] A 


Ij CTRL & 7 


[YELLOW] r| 


M CTRL & H 


[POUND] 




[LARROW] 




[UPARROW] 


t 


[PI] 


SHIFT & ^ 


[INST] 


SHIFT & INST/DEL 


[REV T] 


see text 


[Cletterl 


CBM + letter 


[Slettcr] 


SHIFT + letter 
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LIFESAVER C64 



This little machine code routine will enable 
Basic programs to be enhanced with Hash- 
ing messages etc. It will reverse on and olT 
any part of the screen that you desire. 

The routine redirects the IRQ Inter- 
rupt Vector at memory location 788 so your 
Basic program will be free do do what you 
want. 

To start REVERSER, POKE the 
data into memory then POKE the following 
locations with the values requested: 
POKE 251,L-BYTE (Screen start address) 
POKE 252, Ill-BYTE 
POKE 253,NUMBER OF CHARS 
POKE 254,FLASH RATE 
Then SYS 49152 to start or 
SYS 49196 to switch off. 

The program includes a short demo to show 
how to set the program up. 



1/1 

10 REM **** REVERSER MACHINE CODE**** 
20 FORL=49152T049215:READA:POKEL,A:D=D+AJ^EXT 
30 IFDo8033THENPRINT , DATA ERROR":STOP 
40 DATA 120. 169. 13. 141, 20, 3 ,169 ,192. 141, 21. 3. 88,96. 
173. 57. 192 

50 DATA 197. 254. 208. 18. 169. 255. 141. 57. 192, 160, 0. 177, 
251. 73. 128, 145 

60 DATA 251. 200, 196. 253. 208. 245, 238. 57. 192. 76. 49. 234 
120.169. 49. 141 

70 DATA 20. 3. 169. 234. 141, 21. 3. 88. 96. 0. 31. 168. 255. 8. 
21. 74 

80 REM *•** REVERSER DEMO **** 

90 POKE53280,0:POKE53281.0:POKE 646.7 

100 PRINT CHR$( 147);:PRINT TAB( 1 3)TOUR 

COMMODORE" 

1 10 POKE253.18:REM * NUMBER OF CHARACTERS TO 
REVERSE* 

120 POKE254.25: REM • FLASH RATE * 

130 A=1035: REM • SCREEN ADDRESS * 

140 POKE251.A AND 255: REM • POKE VALUES FOR 

SCREEN ADDRESS * 

I50POKE252.A/256 

160 SYS 49152: REM * CALL M/C » 

170 GET A$:IFA$="'THEN 170 

1 80 SYS 49 1 96: REM * SWITCH OFF M/C * 



By Neil lliggins 




Listings 



William Tell 




PROGRAM : Id I LL I ATI TELL - LISTING 5 



7F 10 BL-425 : LN-50 :SA-3123 

a 

F9 SO FOR L-0 TO BL:CX-0:FOR D- 

0 TO 15 
BB 51 READ A ; PQKE532B0 , A 
9E 22 CX-CX+A:PQKE SA+L*16*D, A: 

NEXT 

P.2 30 READA: IF A-CX THEN40 

IE 31 PRINT "ERROR IN LINE";LN*C 

L*103 tSTOP 
IB 40 NEXT L:5YS37B72 
44 50 DATA 32, 31 , 122 , 32 , 7, 122 , 9 
6, 120,1GB, IBS, 141,20,3,169,1 
22, 141. 1503 
OD GO DATA 21,3,159,0,141.188,2 
, 141 . 18. SOB , 3E. 157 , 122. BB , 95 
,169, 1555 
AE 70 DATA 14,141,134,2,189.147 
, 32 . 2 10 , E55 , 173 , 22 , 20B , 4 1 , 24 



7,9, 15. 1B20 
35 BO DATA 141 , 22 , EOB. 162, 7, 142 
,210.2. 163,0, 141, 32, SOB, 141, 
97,3, 16B5 
9S 90 DATA 141,99,3,133,251.133 
,252,157,56,3. 157,64,3,157,7 
2,3, 16B3 
4D 100 DATA 157,80,3,202,16,241 
, 163 , 3 . 141 . 229 . 2 , 164 , 251 , 1B5 
,71 , 126, 2040 
ED 110 DATA 240,38, IBB. 166.252, 
189 , B9 , 126 , 170 , 230 , 251 . 230 , 2 
52,24,32,240,2697 
3C 120 DATA 255,169,35.32,210,2 
55 , 169 , 36 , 32 , 210 , 255 , 169 , 37 , 
32,210,255,2361 
DF 130 DATA 169,38,32,210,255,7 
6,91, 122, 169.210, 141,49,3,18 
9,200, 141,2075 
3F 140 DATA 46,3,169,169,141,50 
.3,169, 100, 141,95.3,96,173,1 
7,208, 15B6 
03 150 DATA 41,127,141,17,206,1 
73 , 26 , 20B . 9 , 1 , 14 1 , 26 , 208 , 173 
,14,220.1733 
01 160 DATA 41,254,141,14.220,9 



6 , 173 , 25 . 208 , 141 . 25 , 20B , 41 , 1 
,208,3,1799 

CA 170 DATA 76 , 49 . 234 , 172 , IBB , 2 
,240.3.76,103, 123, 141.27.208 
,163,254,2065 
47 1B0 DATA 141,28.208,136,140, 
23,208, 140, 29, 20B, 173,59,3,2 
40,4,208, 1946 
35 190 DATA 27,208,136.140,21,2 
08, 169,0, 141,33,20B.169, 104, 
141.18,208.1931 
45 200 DATA 169.3,141.38,206, IB 

9,6,141,37.208,160.7.162.14, 
185.19.1667 

43 210 DATA 126,153.248,7,169,1 

, 153 , 39 , 208 , 185 , 64 , 3 , 217 , 11 . 

126, 176. 1BBG 
9D 220 DATA 5,105,2.153,64,3.15 

7 . 0 , 208 , 1 69 , 60 . 1 57 , 1 , 208 . 202 

,202,1696 
11 230 DATA 136, 20B. 213,173. 19. 

12B , 141 , 248 , 7 . 169 , 0 , 141 , 39 , 2 

OB. 173. 5B, 2065 
34 240 DATA 3,208.11.24,173,64. 

3,105,2, 141,84,3,144.27,169, 

1,1142 
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2D 



CO 



B9 



49 



54 



5D 



Bl 



27 250 DATA 141,59,3,141.16,208 
,54,173,64,3,105,2, 141,64,3, 
141,1287 

03 260 DATA 0.208,201,50,144,3, 
141,59,3.141,0,208,169,60, 14 
1,1, 1529 

FG 270 DATA 208,238,188,2,76,12 
9,234,192,1,208,105,173,59,3 
,240,89,2145 
12 2B0 DATA 169 , 63 , 141 , 21 , 50B , 1 
41 , 23 , 208 , 141 , 28 , 20B , 141 . 29 , 
20B.169.0.1B98 

290 DATA 141,16,208,169,12,1 
4 1 , 39 , 208 , 169 , 2 , 14 1 , 37 . 20B , 1 
60,5,162,1817 

300 DATA 10,195,65,126,153,2 
48 , 7 , 169 . 7 . 153 , 39 , 206 , IBS . 72 
,3,217, 1647 

310 DATA 59,126,176,5.105,2. 
153,72. 3, 157,0,208, 169, 112. 1 
57,1, 1505 
E2 320 DATA 208,202,202,136,16, 
219, 169,5, 141,39,208, 141.44, 
209,173,0,2111 

330 DATA 206,205,59,126,144, 
3,141,60,3,23b, 198 . 5 , 169 , 1S4 
, 141 . 18, 1859 

340 DATA 208,76,129,234,192, 
2.208, 116. 173,60,3,240, 100,1 
62.10,142,2055 
350 DATA 3B, 208,202, 142,37,2 
OB, 162 , 0 , 142 , 16 . 206 . 232 , 142 , 
23,208,142,2110 
360 DATA 27.206,169,193,141, 
29 , 208 . 169 . 255 . 141 . 21 . 20B , 17 
3.61.3,240,2245 
1C 370 DATA 3,206,21,208,169,6, 
141 . 28 . 208 , 162 . 14 , 160 . 7 . 1B5 , 
51,126,1695 
61 3B0 DATA 153 , 248 , 7 , 16S , 43 , 12 
6, 153.39,209, 185,80,3,217,27 
,126,176,1976 
E5 390 DATA 5.105.2,153,80,3,15 
7,0. 208 , 1B5 , 35 , 156 , 157 , 1 , 208 
,202,1627 

400 DATA 202,136.16,217,173, 
0 , 208 , 201 , 254 , 144 , 6 , 141 , 61 , 3 
,206, 27, 1995 

410 OATA 206.238.188.2.159,2 
02, 141, 18.208.76, 129,234, 169 
,0,141,16.2141 

420 DATA 209, 141 , 1B8,2,'173,6 
1,3, 240 , 114 , 169 , 1 , 141 , 33 , 20B 
. 169,208,20S9 

430 DATA 141,1,209.162,0,142 
. 39 . 208 , 142 . 29 , 208 , 232 , 172 , 6 
3,3,206,1956 

440 DATA 17,142,28,208,202.1 
42,37,20B, 169, 10 , 141 , 3B , 206, 
169,5,141,1865 
59 450 DATA 39,206,173,62.3,240 
, 12, 173.98,3,206,7,32, 126,12 
5, 169, 167B 
74 460 DATA 3.209.2.159,1,141,2 
1 , 206 , 141 . 23 , 20B . 185 , 48 , 3 , 20 
6.210,1777 
C2 470 DATA 2,208,8,169,4,141,2 
10,2,32,37,125,141,249,7,173 
,57, 1564 

96 480 DATA 3,209,76,24,173,56, 
3 , 105 , 1 . 144 , 10 , 72 , 169 , 1 , 141 , 
16, 1202 

7F 490 DATA 208 , 141 , 57 , 3 , 104 , 14 

1 , 56 , 3 , 141 , 0 , 20B , 173 , 22 , 208 , 

41,7, 1513 
B5 500 DATA 208,39,32.202,125,1 

73 , 61 , 3 . 240 , 21 , 238 , 49 , 126 , 23 

8,50.126,1931 
21 510 DATA 173,49,126,41,15,24 

0,243, 173,52. 126,73,24,141,5 

2, 126, 173, 1B27 
96 520 DATA 22 , 208 , 9 ,<7 , 141 , 25 . 2 

06 , 206 , 3 , 206 , 22 , 20B , 76 . 49 , 23 

4,169, 1792 



42 



24 



33 



C3 



CI 



IF 530 OATA 1,141,16,206,24,169 

, 1 , 109 , 56 , 3 , 201 , 86 , 144 , 193, 2 

00, 192, 1734 
D7 540 DATA 3,144,2,160,0.140.6 

3,3.206,229,2, 169,0,141,56.3 

.1321 

EB 550 DATA 141,57,3,240,156.19 
2 , 0 , 208 . 1 6 , 24 , 173 , 48 , 3 , 105 , 1 
,201. 1576 
08 560 DATA 204,144,2.169,200,1 
53, 48, 3; 96, 192, 1,209, 14,24,1 
73.49, 16B0 
BF 570 DATA 3,105.1,201.213,144 
, 238 , 169 , 209 , 209 , 234 , 56 , 173 , 
62 . 3 , 240 , 2259 
BS 580 DATA 15,173,50,3,233,1,2 
01 , 162 , 1 76 , 2 , 169 , 165 , 14 1 . 50 , 
3,96, 1640 
1A 590 DATA 173.50.3,233,1,201, 
166 . 176 , 2 . 169 , 169 . 72 . 173 , 98 . 
3 , 208 , 1897 
BF 600 DATA 10.173,56,3,201,100 
, 144 , 3 , 141 , 62 , 3 , 104 , 208 , 222 , 
169,0, 1599 
7A 610 DATA 141.28,208.141,40,2 
08, 169, 178, 141,249,7, 169,209 
,141,3,20B,2239 
5C 620 DATA 24,173,97,3,240,28, 
169,2,141, 16,208, 173,96,3.10 
5,4, 1482 
36 630 DATA 201 , B6 , 144 , 31 . 141 , 9 
6,3,169,0,141.62.3.159,169,1 
41 ,50, 160B 
6F 640 DATA 3,95,173.96,3,105,4 
, 144, 10,72, 169,2, 141 , 16,206, 
141, 1383 

EA 650 DATA 97,3,104,141,96,3,1 
41,2,206,96. 169,0, 133,253, 16 
9,4,1619 
11 660 DATA 133,254.169,255,133 
,251, 169,3, 133.252, 162, 10, 16 
0,0. 177, 5S3, 2514 
8E 670 DATA 72.200.177,253,145, 
251 , 200 , 192 , 40 , 208 , 247 , 104 , 1 
45, 2S1, 202, 48, 2735 
14 6B0 DATA 25,24,169.80,101,25 
3 . 133 , 253 , IBS, 254 , 105, 0 , 133 , 
254, 169,80,5198 
4C 690 DATA 101,551,133,251,144 
, 214 , 230 , 252 , 20B , 210 , 96 , 5S4 , 
73,109,131.159,2816 
BC 700 DATA 167,214,254,191,179 
, 180, 181, 181 , 180, 182, 183, 2S4 
,230,110,150,174,3030 
CE 710 DATA 198.136,164,166,166 
, 166, 166, 155, 166, 160, 180,0,5 
,7.3,3,1892 
16 720 DATA 3,1,1,191,222,167,1 
99, 189,190, 175. 176,252,208. 1 
60. 152, 120,2435 
6B 730 DATA 74,166,181,181,185, 
1B4, 186, 1,9, 15, 19,20, 13,25,5 
,35. 1319 

56 740 DATA 30,26,2,26,36,15,21 

.31,0,0,2,4,6,8,10,4,223 
OB 750 DATA 12,18,14,0,6,8,10,1 
2, IB , 16, 234 , 234 , 234 , 234 , 234 , 
534, 1518 
IF 760 DATA 0,255,0,555,0,255,0 
, 255 . 0 . 2SS , 0 , 255 , 0 , 255 , 0 , 255 
,2040 

AF 770 DATA 65,66,66,65,66,65,6 
5 , 66 , 66 , 65 , 66 , 65 , 66 , 55 , 65 , 66 
,1049 

Dl 790 DATA 55,66,66,55,65,66,6 
3 , 63 , 63 , 63 , 66 , 65 , 66 , 66 , 66 , 66 
,1041 

09 790 DATA 65,66,65,63,63,63,6 

6,66,65,66,65,211,211 ,211 ,21 

1,211,1768 
90 600 DATA 211,211,211,211,211 

,511,511,211.211,211.211,55, 

66,65,63,53,2643 
67 BIO OATA 63,63,66,66.73,65,7 



3 , 65 , 73 , 65 , 65 , 63 , 63 , 63 , 66 , 65 
,1059 

43 620 DATA 66,65.66.211,35,32, 
35 , 32 . 32 , 32 , 32 , 32 , 32 , 32 , 32 , 3 
2,792 

0 630 DATA 32,32.211,65,55,66, 
63,63,63.63,66,65,74,65,74,6 
5, 1135 

i9 840 DATA 74,55.66,63,63,63,6 
6,66.65.66,65,211,211,211,21 
1,211, 1777 

3 BSO DATA 211.211,211.211,211 
,211,211,211,211,211,211,65, 
66.65,63,63,2643 

18 850 DATA 63,63,66,65,66,66,6 
S , 66 , 65 , 66 , 65 , 63 , 53 , 63 , 64 , 65 
.1034 

*5 870 DATA 65,65,66,211,32,32. 
32 . 32 , 32 , 32 , 32 , 35 , 35 , 32 , 32 , 3 
2,791 

29 9B0 DATA 32,32,211.55,210,65 
, 63 , 63 , 63 , 63 , 56 , 66 , 65 , 66 , 66 , 
65, 1261 

IB 890 DATA 66,66,65,63,63,63,6 
4 , 66 . 65 , 66 , 65 , 21 1 , 32 , 32 , 32 . 3 
2,1051 

:8 900 DATA 32,32.32,32,32,32,3 
2,32,32,32,211,65,65,65,63,6 
3,853 

21 910 DATA 63.63.56,65,73,65,7 
3 , 65 , 73 , 2 1 0 , 65 . 63 , 63 , S3 , 66 , 6 
5, 1201 

2B 920 DATA 65.65,66.^11,32,32. 
32 , 32 , 32 , 32 , 32 , 35 , 32 , 32 , 32 , 3 
2,791 

74 930 OATA 32.32.211.65.210,65 
, 63 . 63 , 63 , 63 , 64 . 6S , 74 , 65 , 74 , 
65. 1274 

06 940 DATA 74,65,55,63,63,63,6 
4 , 66 , 65 , 66 , 66 , 21 1 , 35 , 35 , 32 , 3 
2,1059 

5E 950 DATA 32,32.32,32.32,32.3 
2 , 32 , 32 , 32 , 21 1 , 55 , 66 , 63 . 63 , 6 
3,953 

32 960 DATA 63,63.64,65,66,55.6 
6 , 6S , 65 , 66 , 65 , 63 , 63 , 63 , 54 . 65 
,1031 

DB 970 DATA 65,66,65,211,35,32, 
32 . 32 , 32 , 32 , 32 , 32 , 32 . 32 , 32 , 3 
2,791 

OE 9B0 DATA 32,32,211,65,210,65 
, 63, 63, 63, 53, 64, 66 ,6b\ 66, 65, 
65, 1259 

25 990 DATA 66,210,65,63,63,63, 
64 . 66 , 65 , 65 , 66 , 21 1 , 32 . 32 , 32 , 
32.1195 

04 1000 DATA 32,32,32,35.32.32, 
32 , 35 . 32 , 32 . 21 1 , 65 . 66 , 65 , 53 , 
63,853 

13 1010 DATA 63,63.64,65.73,65. 
73 , 65 , 73 , 6S , 65 , 63 , 63 . 63 , 66 , 6 
5,1054 

AS 1020 DATA 66,65,55,211,35,32 
,35.32,32,32,32.32,32,32.32, 
32,791 

63 1030 DATA 32,32,211,55,210,6 
5 , 63 , 63 , 63 , 63 , 64 , 66 , 74 . GS , 74 
,65,1275 

90 1040 DATA 74,210,65,63,63,63 
, 64 , 65 , 65 , 66 , 66 , 21 1 , 32 , 32 , 35 
,32, 1203 

OA 1050 DATA 32,32,32,32.32,32, 
35 , 32 , 32 , 35 , 511 , 65 , 65 , 65 , 63 , 
222, 1012 

B6 1060 DATA 223,166,64,65,66,6 
6 , 6S , 66 , 65 , 66 , 6S , 63 , 63 , 63 , 66 
,66, 1299 

EC 1070 DATA 66,66,65,511,35,35 
,32,32,32,32,32,32,32,32,32, 
32,792 

B4 1080 DATA 35.35,511,65,210,6 
5,63,221, 100. 156.64,56, 12B,6 
5,6S. 128, 1661 

B4 1090 DATA 65.510.65,63,63,63 
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, 64 . 65 , 65 , 65 , 65 , El 1 , 32 , 32 , 32 
,32, 1193 

72 1100 DATA 35,35,32, 32. 32,32. 
32 , 32 , 32 , 32 , 2 1 1 , 65 , 66 , 65 , 63 , 
221 , 1011 

01 1110 DATA 100,166,64,165,127 
, 65 , 66 , 127 , 65 , 66 , 55 , 63 , 53 , 63 
,66,65, 1396 

35 1120 DATA 66,66,65.211.211,2 

11,211,211,211,211,211,211.2 

11,211,211,211,2940 
64 1130 DATA 211,211,211,65,210 

, 65 , 63 , 221 , 100 , 166 , 64 , 165 , 12 

7,65.66, 127,2137 
FF 1140 DATA 55,55,65,53,63,53, 

64 , 56 , 69 , 68 , 6B , 6B , 68 , 68 , 69 , 6 

B, 1059 

6E 1150 DATA 68,68,68,58,68,58. 
6B , 6B , 6B , 68 , 69 , 58 , 69 , 69 , 67 , 2 
21 ,1240 

6D 1150 DATA 100,166,64,66,56,6 

6,65,65,66,210,65,63,63,53,6 

4,65,1318 
CB 1170 DATA 39,32,40,39,39.40, 

32,39, 40 ; 32 , 40 , 39 , 39 . 40 , 40 , 3 

9,609 

97 1190 DATA 39,40.39,40,39,40. 

39 , 212 , 220 , 166 , 64 , 65 . 66 , 225 , 

226,65,1585 
BF 1190 DATA 66,66.65,63.63,63, 

54 , 55 , 39 , 32 , 40 , 39 , 39 , 40 , 39 , 3 

9,822 

23 1200 DATA 39,39,40,39,40,39, 
32 , 39 , 39 , 32 , 40 , 39 , 39 , 40 , 39 , 4 
0.615 

BA 1210 DATA 212,53,64,65,66,22 

7 , 230 , 65 , 55 , 66 , 6S , 63 , 63 , 63 , 6 

6,66, 1511 
DC 1220 DATA 40,39,40.32,39,32, 

40 , 39 , 39 , 32 , 32 , 39 , 32 , 32 , 39 , 3 

2,578 

39 1230 DATA 32,40,39,32,39,40, 
40 , 39 , 32 , 67 , 66 , 65 , 66 , 66 , 65 . 6 
6,794 

7F 1240 DATA 66,210,65.63,63,63 
,64,65,32,32.39,32.32.40,32, 
32 , 930 

AO 1250 DATA 32,40,39,40,32,39, 
32 . 39 , 32 , 32 , 39 , 32 , 32 , 39 , 32 , 3 
2,563 

E9 1260 DATA 32,39,32,39,32,39, 
39 , 32 , 33 , 32 . 39 . 224 , 63 , S3 . 64 , 
56 , 974 

1A 1270 DATA 40,32,39,32,40,32, 
39 , 32 , 40 , 32 , 32 , 32 , 39 , 32 . 32 , 3 
2,557 

54 1280 DATA 39.32,32,39,32,39, 
32 , 32 . 39 , 32 , 32 , 32 , 39 , 32 . 39 , 3 
2,554 

84 1290 DATA 32,32,39.32,224,63 
,66,65,6,15, IB, 9, 51, 48, 20, 15 
.745 

2C 1300 DATA 57 , 4B , 48 , SB . 16 , 79 , 
52 , 57 , 49 , 53 , SO , 43 , 9 , 44 , 16 , 69 
,74B 

3E 1310 DATA 40, 49, 4B, 50,52, 43, 
9,41 , SB , 14, 69, 32,32 , 32 , 32 , 32 
,633 

CE 1320 DATA 32.32.32,32,32,32, 
32 . 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 3 
2,512 

02 1330 DATA 32,32,32,32,0,255, 
0 , 255 , 0 , 255 , 0 , 255 , 0 . 255 , 0 , 25 
5, 1658 

BF 1340 DATA 97.97,97.97,97,97, 
97 , 97 , 97 , 97 , 97 , 97 . 97 . 97 , 97 , 9 
7, 1552 

OD 1350 DATA 97,97,97,97,97,97, 
97,97,97,97,97,97,97,97,97,9 
7, 1552 

DB 1360 DATA 97,97,97,97,97,97, 
97 , 97 , 97 , 97 , 97 , 97 , 97 , 97 , 97 , 9 
7, 1552 



C9 1370 DATA 97,97,97,97,97,97, 
97 , 97 , 97 . 97 , 97 , 97 , 97 , 97 , 97 , 9 
7.1S52 

OA 13B0 DATA 97,97,97,97,97,97, 
97 , 97 , 94 , 95 , 97 , 97 , 97 , 97 , 97 , 9 
7,1547 

CC 1390 DATA 1SB , 97 . 94 , 95 , 97 , 97 
,97,97.94.96,95.97,97,97,97, 
97, 1602 

1A 1400 DATA 97,97,97,97,97,97, 
97 , 97 , 94 , 95 , 97 , 97 , 97 , 97 . 97 , 9 
0,1540 

OC 1410 DATA 100,92,91,97,94,95 
,97,97, 161,90, 100, 100,91,95, 
95,90, 1S86 
BF 1420 DATA 93,100,100,91,97,9 
7,94,96,95,97,97,94,95,97.97 
.90, 1530 

11 1430 DATA 100.100,91,97,97,9 

7,90,93, 100, 100,100,92. 100,9 

2,91,97,1537 
BB 1440 DATA 156,100,100,92,100 

, 100,93, 100. 100, 100,92, 100,9 

1,90,100,93,1607 
65 1450 DATA 100,91,90,100,92,9 

1 , 90 . 93 , 100 , 92 , 100 , 91 , 97 , 90 . 

93,100,1510 
OD 1460 DATA 100,100,100.100,92 

, 100, 100,91, 115, 155, 100, 100, 

32,93,100,47,1596 
C7 1470 DATA 100,100,100,100,10 

0 , 47 , 100 , 100 , 92 , 100 , 100 , 100 , 

100,93,93,100,1525 
S4 14B0 DATA 93,100,100,100,93, 

100, 100, 100, 100, 100, 100. 100, 

86,85,86,85, 1528 
4B 1490 DATA US , 1 15 , 1SS , 100 , 93 

.100, 100 , 27 , 43 , 44 . 44 , 44 , 44 , 2 

9,43,100,1197 
B3 1500 DATA 100,100,100,100,10 

0, 100, 100. 100, 100, 100. 100,93 

, 100, 100,100, 100, 1593 
SD 1510 DATA 100,100,100,100,88 

,82,83,81, 115, 115,115,113, 11 

2,112,41,28,1485 
54 1520 DATA 42,46,46,30,45,46, 

42, 122,41 . 114, 112,122,41 , 122 

,41.122,1135 
OA 1530 DATA 122,41,122,41,41,1 

22,41,41,122,122,41,41,63,63 

.84,65.1172 
BA 1S40 DATA 117,117.118.114,32 

,32,39,122,41.41,41.33,41.41 

.41,40, 1010 
01 1550 DATA 32,32,32,32,32,32, 

32, 32, 32, 32, 32, 32, 32, 32, 32, 3 

2.512 

4E 1560 DATA 32,32,32,32,63,63, 
64 , 73, 109, 109, 73, 32,32. 32, 32 
, 32 , B42 

9D 1570 DATA 32.32,32,32,32,32, 
32 , 32 , 32 , 32 . 32 , 32 , 32 , 32 , 32 , 3 
2,512 

75 1580 DATA 32,32,32,32,32,32, 
32 , 32 , 32 , 32 . 32 , 32 , 63 , 63 , 54 , 7 
4,648 

CE 1590 DATA 109,109,74.60.61.6 
0, 61, 60, SI, 60, 61, 60, 61, 60, 61 
,60, 107B 

32 1500 DATA 61.60,51.60,61,60, 
61,60,61,60,61,60,61,60.61,6 
0,969 

CB 1610 DATA 61.60,61,50,103,63 
,64,65, 109, 109, 104,66,65.66, 

66.65,1187 
BF 1620 DATA 66.65,66,65,55,56, 

66 . 55 , 66 , 66 , 65 , 55 , 65 , 66 , 66 , 6 

5,1050 

65 1S30 DATA 66,66,56,65,65,65. 
66 , 66 , 65 , SS , 6S . 66 , 209 , 63 , G4 . 
123, 1247 

F7 1640 DATA 70,53,104,66,66,65 



,66,55.1,2,3,4,5,6,7,8.607 
B7 1650 DATA 9.10,11,12,13,14,1 
5, 16, 17, IB, 19,20,21.22,23,24 
.264 

45 1660 DATA 25,26,66,210,209,5 

3,64, 125,72,71,104,79,79.79, 

79.79,1430 
FA 1G70 DATA 79,79.79,79,79,79, 

79 . 79 , 79, 79 , 79 , 79, 79 , 79 , 79 , 7 

9, 1264 

DO 16B0 DATA 79,79,79.79,79,79, 
79 , 79 , 79 , 79 , 79 , 79 , 79 , 103 , 64 , 
65, 1259 

D3 1690 DATA 106,106,107,80,90, 

BO , 80 , BO . 80 , BO . 80 , BO , 60 , BO , B 

0,80, 1359 
82 1700 DATA 80 , 80 , BO , 80 , 80 , 80 , 

80 , 80 , BO , 80 , BO , BO , 80 , 80 , BO , B 

0, 12B0 

E9 1710 DATA 80,80,90,80,80.80, 

80,80. 109.109,104,56, 119,94, 

84,84, 1399 
84 1720 DATA 65 . B4 , 65 , 84 , 84 . 84 , 

B4 , 65 . 1 1 9 , 65 , B4 , 65 , 84 , 65 , 66 , 

6S.1228 

8E 1730 DATA 84 , B4 , 84 , 65 , 1 19 , SS 
, B4 , 65 , 84 , 84 , 55 , 1 1 9 , 209 , 63 , 6 

4,66, 1404 
AE 1740 DATA 69,109,104,65,66,6 

6 , 12B , 65 , 66 , SS , 65 , 66 , 65 , S6 , 1 

2B.66. 1261 
FD 17S0 DATA 66.65.65,66,55,56, 

65 , 56 , 12B , 55. 6S . 66 , 66 , 65 , 56 , 

66, 1111 

24 1750 DATA 12B , SS , 66 , 56 , 209 , B 

3,64,73,71,109,104,66,65,66, 

127,66,1409 
B3 1770 DATA 66,66,65,65,66,66, 

127 , 65 , 65 , S6 . 6S . 65 , 66 , 65 , 66 , 

65. 1110 

CO 1780 DATA 127,65.66,65,65,66 

, 65 . 65 , 127 , SS, 66, 210 , 209 , 63 , 

64,74, 1463 
04 1790 DATA 109,109,104,66,66, 

65 , 127 , 65 , 65 , 65 , 56 , 65 , 66 , 65 . 

127,65, 1296 
32 1800 DATA 66,66,65,66,55,66. 

65, S6 , 127 , 66, 65, 66 , 65 , 66 , 55 , 

66, 1111 

SD 1810 DATA 127 , 55 , 65 , 66 , 209 , S 

3, 64 . SS , 109, 109, 104 , 66 , 65, 6S 

,66,65, 1374 
49 1820 DATA 66,66,66,55,65,66, 

65 , 66 , 65 , 55 , 66 , 6S , 66 . 65 , 55 , 6 

5, 104B 

2B 1B30 DATA 66,55,66,65,66.65. 
66 , SS , 66 . 65 , 66 , 65 , 209 , S3 . 65 , 
66, 1190 

79 1B40 DATA 109,109.104.66.66. 

66 , 55 , 171 , 187 . 170 , 65 , 66 , 55 . 6 

6,66.65,1507 
B5 1850 DATA 66,66,65,66,65.65, 

66 , 66 , 56 , 65 , 66 , SS . 65 , 66 , 171 , 

21B, 1306 
12 I860 DATA 170,55,65,66,209,6 

3 , 66 , 65 , 109, 109 , 119, 66 , 65 , 66 

,65,187,1555 
BD 1B70 DATA 187,187,65,55,123, 

124 , 65 , 55 , 56 , 65 , 66 , 65 , 66 , 66 , 

65,66, 1408 
11 1BB0 DATA 65,65.66,123,124,6 

5,211 ,21B, 211 ,56.65,65,209,6 

3,66,56, 1749 
FA 1B90 DATA 109,109.120,66,66, 

65 , 66 , 187 , 187 , 1 B7 . 65 , 65 . 125 . 

126,65,65, 1673 
B9 1900 DATA 66,66,65,66,66,65, 

66 , 65, 66, 66, 65 , 125 , 126 , 65, 21 

1. 218. 1467 
31 1910 DATA 211,66,55,56,209,6 

3 , 66 . 65 , 109 , 109 , 104, 66 , 65 , B6 

,55, 1B7, 1582 
26 1920 DATA 1B7 , 187 , 65 , 66 , 66, 6 
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B3 



F3 



'-(15 



4D 



05 



E9 



30 



91 



DF 



CF 



BE 



FC 



09 



CI 



06 



IE 



EC 



B3 



IF 



E5 



97 



FE 



10 



FO 



5 , 65 , 66 , 66 , 65 , 65 , 65 , 65 , 66 , 66 
,66, 1595 

1930 DATA 65,66,66,65,510,65 
, 51 1 , 5 1 B , 51 1 , 66 , 6B , 65 , 509 , 63 
.66,6S,1777 

1910 DATA 109,109,104,68,68, 
69 , BB , 191 , 191 . 191 , GB , 68 , BB , B 
B,6B,6B, 1575 

1950 DATA 59.68,68,68,68,68, 
BB ,68 ,68,68, 68, 68, 6B.6B, 191, 
131, 1334 

1960 DATA 191,68,68,68,68,67 
, SB , 66 , 0 , 555 , 0 , 555 , 0 , 555 , 57 , 
16, 1470 

1370 DATA 169,0,160,30,153,1 
35, 3, 136, 16,550,160,14,153,6 
4,3, 153, 1658 

19B0 DATA 80,3,153,36,3,136, 
16 , 544 , 96 , 150, 163 , 155 , 141 , 54 
,3.163,1578 

1330 DATA 137,141,55,3,169,5 
4, 133, 1,88,163,8,35,510.555, 
163,147,1741 

5000 DATA 35,510,555,35,193, 
143 , 36 , 163 , 531 , 141 , 148 . SS . 14 
1,116, 85,35. S0B6 
5010 DATA 114,103,35,135,134 
, 35 , 0 , 134 , 35 , 145 , 135 , 35 , 165 , 
135, 35, 176, 1563 

5050 DATA 135,35,555,135,35, 

IS, 135,35,35, 135, 35.151, 147, 

35.513,134,1644 

5030 DATA 35,51,135,36.150,1 

69,139,141,50,3,169,106,141, 

51 ,3, 163, 1S15 

5040 DATA 105,141,18,508,35, 
170, 147,163,0,141,188,5, 141, 
13,3,141,16SS 

50S0 DATA 115,3, 88,36, 1B3.S4 
,141, 154,3, 163, 7S. 141,155,3, 
169,34,1536 

5060 DATA 141,155,3,163,75,1 

41 , 153 . 3 , 163 , 50B , 141 , 181 , 5 , 1 

69, 51B, 141, 5003 

5070 DATA 185,5,163,150,141, 

167,5,169, IB. 141, 175,5,163, 1 

,141,51,1617 

5080 DATA 508 , 1B9 , 19B , 141 , 0, 
SOB, 169, 193, 141 , 1 , SOB, 163,35 
. 141, 170,5,5150 

5090 DATA 169,95,141,171,5,1 
63,45,141,185,5,169,75,141,1 
BB.5. 169, 1859 

5100 DATA 58,141,194,5,96,16 
9 . 16, 141 , 187 . 5, 141 , 1B9, 5. 10 . 
141,137,1596 

5110 DATA 3,173,30,508,165,4 
,145,546,5.145,535,5,505,145 
,530,5, 1955 

5150 DATA 169,7,141,33,508,1 
41,40,508, 163,0, 141, 57, SOB, 1 
41,547.5, 1BBB 

5130 DATA 141,35,508,141,37, 
508, 169, 10. 141 ,38,508,36, 1B3 

,3, 170, 157, 1358 

5140 DATA 54,3.157,58,3,505. 

16 , 547 , 163 , 0 , 1G5 , 5 , 157 , 41 , SO 

8,505, 16B4 

5150 DATA 16,550,36,169,0,16 
5,53,157,0,513,505, 16,550,16 
9, 15, 141 , 1B7B 

5160 DATA 54,515,96,169,506, 
141,194,5.169,10,141.183,5,1 
41,536,5,1918 

5170 DATA 169,198,141,535,5, 

169,550, 141, 133, 3,163, SIB, 14 

1,134.3,169,5345 

3190 DATA 193,141,53,3,169,1 

77, 141,53.3, 165,3, 145,53.3,1 

45. 135, 1579 

5190 DATA 3,143,113,3,143.19 
3,3,145, 190,3, 145.537,5, 145, 
58,308, 1691 



B7 3500 DATA 160,503,155,157,54 
5,3,500,505,16,548, 165,3, 160 

,513, 155, 157.5435 
67 5510 DATA 538,5,500,303,16,3 

48, 1G9. 197, 141, 135,3,169,300 

,141,136.3,5500 
70 5550 DATA 35,163,8,165,0.157 

,0,516, 157.0,517, 157,0,518. 1 

57,535. 1946 
70 5530 DATA 516,333,309,341,96 

,169,10, 165,79,157,548,518,5 

05, 16,550,96,5605 
31 5540 DATA 163 , 54., 141 , 131 , 3, 1 

33,353,169,5,141,135,5,133,5 

54, 163, 115,5030 
75 5350 DATA 133,551,163,75,133 

,555,160,0, 135,555,54,165,17 

,177,551,145,5333 
AE 5360 DATA 353,166.553,105.40 

, 133 , 553 . 144 , 3 , 530 , 554 , 54 , 53 

0,551, 508, S.S54B 
3S 5570 DATA 530,555,505,16,535 

, 530 , 555 , 165 , 555 , 301 , 40 . 176, 

14, 103, 131 ,3,3570 
BO 3360 DATA 133,353,173,135,5, 

105 , 0 , 133 , 354 , 144 , 508 , 36 , 160 

,0.165,33,5054 
CE 5590 DATA 163,157,157,0,4,15 

7,80,4,157,160,4,157,540,4,1 

55,157,1769 
OE 5300 DATA 0,516,157.80,316,1 

57,160,516,157,540,516,505, 1 

6,556, 163,5,5455 
6A 5310 DATA 160.15,34.33.540,5 

55, 165,0,169,103, 137,540,6,3 

S,510,SS5,3060 
03 5350 DATA 535,508,545,165,4, 

169,165,157,53,4,157,93,4,15 

7,133,4,1944 
46 5330 DATA 157,64,4,157,104,4 
,157,144,4,505.16,535,159,10 

0,163, 5, 16B4 

16 3340 DATA 157,58,4,157,98,4, 
157 , 13B . 4 . 503, 16, 344 , 141 , 95 , 
4, 141, 1617 

1A 5350 DATA 40,4,141,150,4,141 
,500,4, 141, 109,4,165, 169,143 
. 100,4, 1485 
AE 5350 DATA 303,145.101,4,169, 
144 , 33 , 310 . 555 , 160, 1 . 165 , 1 . 5 
4,35,340, 1B79 
7B 5370 DATA 35S, 305, 189 , 14 , 137 
,540.6,35,310,355,535,508,54 
5, 160,39, 165,5576 
6C 33B0 DATA 1,54,33,340,555,50 
3, IBS, 53, 137,340,6,33,310, 35 
5,335,508,5593 
AO 3390 DATA 345,160,1,163,3,34 
,33,540,555, 165,0,189.43, 137 
,540,5, 1839 

53 5400 DATA 35,510,555,535,506 
, 54S , 1 60 , 59 , 165 , 3 , 54 , 33 , 340 , 
555, 165,0,5549 

13 5410 DATA 189,57,137,540,5,3 

5,510, 555 , 535 , 508 , 545 , 160 , 1 , 

165.5,54,3163 
IB 3450 DATA 35,340,555,165,0,1 

83 , 7 1 , 1 37 , 340 , 6 , 35 , 51 0 , 555 , 5 

35.508,545,5514 
D4 5430 DATA 160,57,155,5,54,35 

. 340 , 355 , 165 , 0 , 169, 87 , 137 , 35 

,510,555, 1377 
3C 5440 DATA 540 , 3 . 535 , SOB . 545 , 

165,17,163,8,157,95.516,157. 

173,315,503,3436 

17 3450 DATA 16.547.165,4.183,1 
35 , 306 , 1 57 , 137 , 4 , 303 ,16,547, 
96,18.83,1909 

67 5460 DATA 67,79,85,69,59,146 
, 46 , 48 , 48 , 48, 48 , 164 , 0 , 164 . IB 
,7S, 1165 

54 3470 DATA 69,89,83,33,58,146 
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, 164, 164, IB, 58,0,56,63,83,64 
,33, 1315 

3480 DATA 58,146,35,33.33,35 
,33, 164,0, 164, 18,76,73,86,69 
,B3. 1097 

3490 DATA 56,146,48,55.18,58 
, 0 , B4 , 73 , 77 , 69 , 33, 58 , 14B , 43 , 
48, 1013 

5500 DATA 43,4B,4B, 1B4, 164, 1 
64 , 0 , 164 , 164 , 164 , 18, 66 , 73 , 76 
,B4,B3, 1535 

5510 DATA 58.146,49,50,46,35 
,0,16,58,87,73,76,76,73.65,7 
7,356 

5550 DATA 35,84,63,76,76,146 
, 0 , 35 , 135 , 147 , 35 , 55 , 134 , 35 , 1 
65,144,1386 

5530 DATA 35 , 168 , 5S3 , 35 , 151 , 
147,35,0, 155, 163,0, 141,65.3. 
540, 115, 1643 

5540 DATA 35,168,553,35,135. 
147 , 35 , 55 , 134 , 35 , 504 , 147 , 35 , 
100, 134, 173, 1B4B 
5550 DATA 96,3,508,6,35,67,1 
33,33,164,146, 173,303,5,540, 
3,35, 1555 

5560 DATA 30,140,173,505,5,5 
40,3,35,114,138,173,19,3,508 
,56,173.1710 

5570 DATA 551,5,508,546,35,1 
31, 138,173,113,3,340,511, 173 
.175,5,508,5335 

5580 DATA 306,173,157,3,540, 
4 . 501 , 540 , 508 , 197 , 35 , 195 , 147 
, 35,56, 13B.533B 

5590 DATA 35,165,144,35,0,16 
0 , 169 , 147 , 33 , 510 , 555 , 35 , 151 , 
147.35, 145. 1B50 

5G00 DATA 135,33,103,143,76, 
3 , 136 . 35 . 105 , 1 3B , 35 . 135 , 147 . 
35, 165, 144, 1613 
5610 DATA 35.100,143,173,0,3 
30,41, 16,540,37,173,553,3,30 
8,544. 173,5030 

5650 DATA 65,3,73,1,141,65,3 
,508,3,76,155,137,163,48, 160 
.4, 1575 

5630 DATA 153,153,506.136,16 
,350, 33, 165, 144,35,41, 143,76 
,3,138,35,1733 

3640 DATA 163,144,33,151,147 
,76, 144,137,163,4,189,47,4,1 
57.0.305, 1761 

5650 DATA 189,157,4,157,6.50 
S, 189 . 507 . 4 . 157, IS , 305 , 505 , 1 
6,535, 165,3077 

3660 DATA 1,189,155,4,157,16 
,305,305, 16,547.165,5, 1B9. 53 
6,4, 157, 1343 

5670 DATA 13,305.505,16.547, 
36, 163,4. 183,137,4. 157. 115.3 
,505. 16, 1754 

36B0 DATA 347,95,163,0,143,5 
06.5, 145, 141,3,143,143,3,535 
, 145, 143, 1345 

3690 DATA 3,535,56,183.536,4 
,553, 141,3,501.48,176,5, 105, 
10.157.1B16 

5700 DATA 536,4.503,16.538.5 
35, 145,11,513,145,13,515.163 
,9, 141, 15. 1991 

5710 DATA 515,163,3,141,8.51 
5, 163,65, 141,11,513,165, 1, 14 
3,10,515.1870 

5750 DATA 535,189,536.4,501, 
48 , BOB , 6 , SOS . 15 , 546 , 141 , 547 , 
5,96, 173,5547 

5730 DATA 198,5,508,58,174,1 
67 , 5 , SS4 , ISO , SOB , 55 , 175 , 175 . 
5,540, 18.5017 

3740 DATA 193,18,340.38,163. 
100.141,103,4,141,103,4,141, 
38,4, 141, 1656 
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DE 5750 DATA 99,4,169,172,141,6 

0,4, 169,173, 141,61.4, 198,0, E 

40, 15, 1644 
93 E760 DATA 169,174,141,140,4, 

169, 175,141.141,4, 195,18,540 

, 13,96, 169, 1906 
Dl 5770 DATA 100,141,140,4,141, 

141,4,554, 150,540,55, 169, 100 

,141,50.4,1751 
05 B7B0 DATA 141,61,4,554,0,509 

,10. 169, 100,141,105,4,141,10 

3, 4,508, 1650 
Fl 5790 DATA 53,169,157,141,105 

, 4 , 169 , 164 , 141 , 103 , 4 , 554 . 540 

,508,9, 169,5037 
A9 5800 DATA 100,141,98,4,141,9 

8,4,96, 159, 163, 141,98,4, 169, 

167, 141, 1735 
CF SB10 DATA 99,4,96,173,30.50b 

.141.130,3,41,1,508,9.169,5, 

45,1358 

D4 5850 DATA 130 , 3 , 540 , 51 , 50B , 6 

0 , 153 , 188 , 141 . 548 , 7 , 141 , 96 , 3 
,141,534,5040 
5B 5830 DATA 5,169,9,141,5,515. 

141,6, 515 , 96 , 169 , 553 , 45 , 51 , 5 

08,141,1830 
F8 5B40 DATA 51 , 50B , 169 , 0 . 141 . 5 

6.3, 141.504,5, 141,505,5, 141. 

85,3, 1553 
EF 5B50 DATA 138,74.168,163,515 
. 153 , 548 . 7 , 157 , 96 , 3 , 141 , 509 , 

5,173.30,1987 
3E 5860 DATA SOB , 36 . 165 . 6 , 173 , 5 

15,5,540,5.505,505, 183.56, 11 

5,45,51,1931 
3B 5870 DATA 508,540.13.189,95. 

3,508.8,189,56,115,45.130.3, 

508.7.1715 

54 5BB0 DATA 535,535.554,14,508 
, 559 , 96 , 173 , 549, 7 , 501 , 198 , 54 
O.SB, 173, 16,5551 

B5 SB90 DATA 508,61,56,115,508, 

534 , 56 , 1 73 , 5 , SOB , 533 , B , 551 , 0 

,508,178,5164 
AC 5300 DATA 553,105,16,551,0,5 

08 , 176 . 146 , 144 , 514 . 173 . 16 , 50 

8,61,56,115,5073 
C7 5310 DATA SOB , 31 , 183 , 5 , 45, IB 

,508,308,139,56,173,5,208,53 

3,8,551,1987 
D6 5950 DATA 0,508,176,188,105, 
16, 144,5,176,550.551.0,508, 1 

44,177,176,5161 
5E 5930 DATA 513,54,169,5,45,16 
, SOB, 540. 15, 173,2,506, 105,8. 

SSI ,0, 1546 
4E 5940 DATA 506,144,157,176,19 

3 , 173 , 5 , SOB . 105 , 8 , 144 . 148 , 17 

6,540, 163,0.5551 
A3 5950 DATA 141,503,5,141.141, 

3, 141,142.3.141,143,3, 163,5, 

141,144, 1566 
CS 5360 DATA 3,165,5,145,145,3, 

505,54,189.47,4,155,141,3,20 

1.5B.1454 * 
OE 5370 DATA 144,5.533,10,157,4 

7,4,502, 16,538,235, 1B9, 157,4 
,551,47,1873 
8E 5980 DATA 4.540,4,176,7,144, 

6, 535 , 524 , 4 , 508 , 539 , 96 , 173 , 1 

31.4. 1B95 
3C 5990 DATA 105,5,501,58,144,5 
.533, 10. 141, 131,4,173,130,4, 

105,5, 1448 
6C 3000 DATA 501,58,144,5,533,1 

0 , 141 , 130 . 4 , 165 , 5 , 189 , 157 , 4 , 

105,0.1513 
65 3010 DATA 501,58,144.3,533,1 

0, 157, 157,4.505,16,539,96,35 

,151,147,1819 

55 3020 DATA 169,147,32,210,255 
, 32 , 144 . 103, 32 , 35 , 135 , 32 . 513 



,144,35,147.1862 
OF 3030 DATA 146 , 165 , 13 , 145 , S4B 

,7,535, 145,549,7,535, 145.550 

,7,163,135,5340 
51 3040 DATA 141,4, SOB , 169, 184 , 

141,5,208,169.117,141,3,208, 

141,5,508,5049 

62 3050 DATA 163,7,141,51,508,1 
65,0, 145,53,3,145, 16.508,145 
,39.508,1571 

12 3060 DATA 145.40,508,143,41, 

208, 142,28,208,142,32,50b, 16 

9, B, 141,33, 1B92 
7B 3070 DATA 208 . 32 , 147 , 135 , 162 
,38,169,14, 157, 144,217,202, 1 

6,250, 162,120,5173 
CD 3080 DATA 153,13,157.553,517 

.202,508,550, 165.55, 163,1,15 

7,535,517,505,5504 
61 3090 DATA 16,550,163,15,141, 

85,219,141,124,219, 163,12, 14 

1,100,218,141,2161 
BH 3100 DATA 133,213,162,0,183, 

16, 130, 157, 0,4, 1B9, 16, 131,15 

7,0.5,1514 
9C 3110 DATA 189,16,132,157.0,6 

. 189 , 248 , 132 , 157 , 232 , 6 , 232 , 2 

08.553, 169,5303 
11 3130 DATA 75,141,133,5,141,1 

57,5.163,45,141,154,5,141,13 

5.5, 141, 1513 
AE 3130 DATA 136,5,163,0,133,3, 

141 , 353 , 507 , 35 , 504 , 147 , 35 , 18 

B, 144, 169, 1955 
75 3140 DATA 0,141,545,317,173, 

0 , 550 ,41.16, 508 , 543 , 165 , 3 . 50 

8.545,35,5163 
65 3150 DATA 165,144.163,508.13 

3 , 553 , 169 , 507 , 133 , 554 , 165 , 55 

,160,8,136,46,5371 
9A 3160 DATA 55,185,115,56,309. 

353 . 540 , 346 , 505 , 4B , 15 , 56 , 1 65 

,553,533,8,5306 

63 3170 DATA 133,553,176,535,19 
8,554, 160, 7, 50B, 531, 138, 183, 
135.144,164,5,5625 

72 31B0 DATA 153,150,506,35,15, 

143,163,15,141,24,212,163,10 

0, 141,254,507,5130 
AA 3130 DATA 24,173.245,217,72, 

105, 1,41,7, 141, 34S. 317, 104,7 

3.35, 141, 1B3B 
Dl 3500 DATA 1,515.506,553,507, 

508 , 333 , 306 , 554 , 307 , 308 , 528 , 

160,7,162,0,2752 
B3 3210 DATA 189,115,56,75,183. 

113 , 56 , 157 , 1 15 , 56 , 535 , 554 . 7 , 

208,245, 104.2132 
55 3220 DATA 157.113.56,32,34,1 

42 , 1 69 , 15 . 141 , 254 , 507 , 505 , 55 

3,507,506,251.2445 
05 3230 DATA 206 , 254 , 207 , 20B . 24 

6,152,42,42.42,45,141.1,515, 

136, 16,206,2153 
fll 3540 DATA 169,135,141,0,208, 

163 , 137 ,141,1, 208 , 35 . 194 , 145 

,530,2, 165,2134 
EA 32S0 DATA 2,501,3,540.6,35,1 

88.144.76,73,141,35.535,144. 

95.169.17BB 
D6 3560 DATA 0,141,4,212,169,10 

,141,5,212, 141,6,212,153, 17, 

141,4, 1584 
4E 3270 DATA 212,36,163,16,141, 

4,212,163, 15,141,5,212,163, 1 

3,141,6,1721 
3E 3280 DATA 215,163,21,141,1,2 

12,169, 17,141,4.212,96,163,0 

,141,4,1703 
F6 3230 DATA 212,153,6,141,5,21 

2,141,6,515.169,17,141,4,512 

,96, 169, 1312 
FD 3300 DATA 32.141,11,212,169, 



15,141,12,515,169,13,141,13. 
515.169,33, 1695 

4E 3310 DATA 141.11,515,96,35,1 
53 . 1 45 , 35 , 1 35 , 142 , 1 76 . 1 1 . 32 , 
141,140,32,153B 

93 3320 DATA 155,142,169,0,141, 
21,209,32,41,143.96, 160,4, IB 
5,47,4,1548 

BB 3330 DATA 153,153.206.136,16 
,247,96.160,0,185,9,205.217, 
159,506,240,2335 
4E 3340 DATA 3,176,7,96.200,192 
,5,208,240,55,96, 169, 135, 133 
,253, 169,5139 
EA 3350 DATA 506,133,554,160,0, 
1 77 , 2S3 , 2 17 , 159 , 206 , 240 , 4 , 1 7 
6,8,144.13,2356 
Dl 3360 DATA 200 , 132 , 5 . 20B , 240 , 
56 , 165 , 253 , 233 , 14 , 133 , 253 , 17 
6,229, 138,254,5803 
17 3370 DATA 76,163,145,56,165, 
553 , 233 , 9 , 141 , 141 , 3 , 165 , 554 , 
533.0,141,5175 
AD 3390 DATA 145,3.169,14,133,2 
51, 163,208, 133,252,163,0, 133 
,253, 163.206,2405 
AA 3330 DATA 133 , 5S4 , 160 , 13 , 177 
, 551 , 145 , 553 . 136 , 16 , 543 , 165 , 
553,505,141,3,5554 
13 3400 DATA 144,7,165,554,205, 
142 , 3 . 240 , 27 , 24 , 165 . 251 , 105 . 
14,133,2S1,2130 

94 3410 DATA 165,255,105.0.133, 
552 . 165 , SS3 . 105 , 14 , 133 , 553 , 1 
65,554, 105,0,2354 

8E 3420 DATA 133,254,144,206,17 

3,141,3,133,253,173,142,3,13 

3,254,160,13,2318 
1A 3430 DATA 185,150,206,145,25 

3 , 135 , 16 , 248 , 96 , 32 . 195 , 147 , 1 

63, 147.32,210,2367 
CI 3440 DATA 255.32,213,147,32. 

151 , 147, 32 . 145. 135 , 162, 1 . 142 

.52,3,202, 1861 
9F 3450 DATA 189,128,156,157,0, 

4 . 1B9 , 128 , 127 , 157 . 0 , 5 , 183 . 12 

B,12B,157,1B12 
81 3460 DATA 0,6,1B3,200,12B,15 

7,72,5,232,208,229. 169.6,141 

,35,208, 1385 

CS 3470 DATA 169 , 3, 141 , 33 , 20B , 2 

32, 142.34.20B, 142,134,2.232. 

160.4,24, 1B74 
31 3480 DATA 32,240,555,160,0,1 

BS.4D, 144,240.5, 32,210,255.2 

00. 50B. 545, 5452 
IF 3430 DATA 153,126,133,253,16 

3,206,133,254.163,3,133,255, 

162.4,160,4,2333 
29 3500 DATA 24,32,240,255,150. 

0 . 177 , 253 , 32 , 210 , 255 , 200 , 132 
,14,208,246,249B 
D3 3510 DATA 138,255,16,15,169, 

5,141, 559 , 5 , 35 , 230 , 146 , 32 , 20 

4,147,32,1850 
57 3520 DATA 99,147,36,56,165,2 

53.233, 14, 133,253, 176,5, 13B, 

554,535,508, SS19 
43 3530 DATA 505,163,45,180,140, 
, 153,25S,205, 135,208,250, 163 
,0,133,253,169,2650 
A4 3540 DATA 206,133,554,165,0, 

160 . 0 , 1B9 , 56 , 144 . 145 , 253 , 232 
,200,192,3,2329 
FB 3550 DATA 208 . 245 , 224 , 30 , 17E 
, 14 , 165 , 253 , 105 . 14 , 133 . 553 , 1 

55.254, 105,0,2344 
E2 3560 DATA 133,254,144,555,16 

9,9, 133,553, 163,506,133.554, 

165,0,160,0,5404 
15 3570 DATA 199,86,144,145,553 
, 535 , 500 , 195 , 5 , SOB , 545 , 554 . 5 

0,176.14,165,5558 
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B6 3S80 OATA 253 . 105 , It , 133 , 553 
,165,554,105,0,133,551.144,2 
25.169,45,150,5415 
3D 3590 DATA 5,153,153,205,136, 
1G , 250 , 96 , 5 , 64 , 79 , 90 , 32 , 84 , 6 
9,79, 1S5S 
AS 3600 DATA 32,93,67.79,92,69, 
93 , 0 , 69 , 97 , 76 , 6B , B7 , 76 , E9 , 97 
,1112 

55 3G10 DATA 76,68,97,76,69,67, 
76 , 68 , 97 , 76 , 66 , 87 , 76 , 69 , 97 , 7 
6, 1231, 

A5 3620 DATA 69,87,76,69,97,76, 
48 . 49 , 49 . S3 , 48 , 49 , SO, 50 . 48 , 5 
3,957 

A6 3630 DATA 48 , SO , 55, 53 , 4B , 48 , 
51 , 54,48 ,4B,4B, 51 ,56,50,53.4 
B.B06 

5E 3640 DATA 52,49,55,49,46,52. 
51,48,49,49,53,53,49,49,49,5 
3,902 

35 3650 DATA 55,55,53,49.54,50. 
48,46,65,65.67,66,69,70,71,7 

2,959 

8F 3660 DATA 73,74,75,76,77,78, 
79 , 80 , 81 , B2 , B3 , B4 , 8S , 86 , 87 , B 
8, 15B8 

IF 3670 DATA 89,90,120,163,49,1 
41,20,3, 169,534,141,21,3, 173 
,14,220, 1656 
1C 3560 DATA 9,1,141,14,220.169 
, _,240, 141,26,20B,88,96, 120, 16 
9.247,141,2030 
49 3690 DATA 20.3,169,144,141,5 
1 ,3, 189, 152, 141 , 1B.20B, 32, 17 
0,147.169,1707 
FC 3700 DATA 0 , 133 , 3 , BB , 96 , 16Q , 
218 , 1B5 . 255 , 55 , 153 , 255 , 205 , 1 
36,208,247,2336 
5F 3710 DATA 160,7.169,0,153,0. 
58, 136, 16,250,98,160,216, 165 
,255,206,2065 
BO 3720 DATA 153,255,55.136,208 
, 247 , 96 , 173 , 25 , 209 , 141 , 25 . 50 
B,41.1,20B.21B0 
CF 3730 DATA 3,75,49,234,189,15 
2,141,18,208,173,17,208,41,1 
27,141.17,1774 
OC 3740 DATA 208,165,3,240,7,17 
3,255,207,240,17,208,101, 173 
,0,220,41,2256 
7A 3750 DATA 15,73,15,201,4,240 
,90,201 ,8,208,83, 182,7, 169,9 
,55, 1560 

FD 3760 DATA 41,128,240,2,159,1 
, 157 , 247 , 207 , 202 , 15 , 24 1 , 160 , 
0, 140,255.2208 
DG 3770 DATA 207,195,9,56,10,13 
3,255.185.16,55, 16,2,230,255 
,165,255,2034 
43 3780 DATA 153,8.56,200,192,5 
OB . 208 , 233 . 182 , 7 , 1B9 , 247 , 207 
,29,208, 56,2363 
6H 3790 DATA 157 , 20B , 56 , 202 , 16 , 
244,24,165,3, 105 , 1 . 41 , 7 , 72 . 1 
09, 1 , 1411 
AS 3B00 DATA 212,141,1,212,104. 
133,3.201,7,208.3,32,34, 142, 
76,49, 1558 
70 3810 DATA 234,162,7,142,255, 
207, 189,208.56,41,1,240,2, 16 
9, 12B, 157,2198 
EE 3820 DATA 247,207,202.18,241 
, 1G0 , 206 , IBS , 7 , 56 , 74 , 133 . 255 
,1B5,255,55,2486 
60 3830 DATA 41,1,240,8,165,255 
,9, 128.208,2.185,255,153,7,5 
6, 135. 1B27 
99 3B40 DATA 208,229,182,7,189, 
247 , 207 , 29 , 8 , S6 , 157 , 8 , 56 , 202 
,18,244,2025 
F4 3850 OATA 4B , 184 . 160 , O , 162 , 0 
,189.112.56,153,64,3,200,200 



,200,232, 1943 
19 3880 DATA 224 , B , 144 , 242 , 169 , 
5, 141 ,253,207, 173.19,209,208 
,251.206,253,2710 
19 3870 DATA 207.206,245,173,1, 
208 , 72 , 141 , 1 , 212 , 32 , EO , 142 , 1 
04,56,233,2098 
8E 3880 DATA 1 , 141 , 1 , 20B , 201 , 11 
7 , 20B , 220, 173, 63 , 3, 208, 30 , 16 
2,62, 1B9. 1987 
EO 3890 DATA 54,3,157,128,3,202 
,18,247,162,62, 189,0,157,54, 
3,202, 1639 
97 3900 DATA 16,250,169,0,141,4 
, 212, 23B, S3, 3. 96, 201, 2, 176,1 
3, 162, 1746 
C3 3910 DATA 62.169.64,3,157,19 
2, 3 , 202 , 1G , 247 , 48 , 220 , 24 , 173 
,0,208, 1B0B 
14 3920 DATA 105,8,141,0,208,16 
9 . S , 141 , 253 , 207 , 173 , IB , 20B, 2 
08,251,206,2301 
E2 3930 DATA 253,207,208,246.23 
8 , 39 , 208 , 238 , 40 . 50B , 238 ,41,2 
08,206.2,208,2788 
2D 3940 DATA 206,3,208,24,173.0 
.208, 105, 1 , 144, 10,72, 173, IB, 
20B.9, 1560 
F9 3950 DATA 1,141,16,208,104,1 
41.0,208,208. 1.208.56, 173,5, 
208,233,1909 
6F 3960 DATA 1,201,40,144,157,1 
41,5, 208 , 233 , 40. 141 , 1 , 212 , 16 
9.0, 141 , 1834 
F2 3970 DATA 4,212,169,6,141,5. 
212, 169,10,141,6,212,169,129 
,141,4,1730 
BD 39B0 DATA 212,208,162,162.62 
, 169,0, 157, 64, 3, 157, 12B, 3, 15 
7, 192, 3, 1839 
A5 3990 DATA 202.16,244,96,173, 
172.2,240,50, 169 , 32 , 205 , 110 , 
6 , 240 , S3 , 2020 
93 4000 DATA 172,1.208.192,173, 
176 , 46 , 174 , 167 , 2 , 224 , 3 , 176 , S 
, 141, 118, 1975 
OE 4010 DATA 82.208,7,224,237,1 
44,30, 141. 148.SS , 141,110,6,3 
2,79, 142, 1796 
FB 4020 DATA 162,0,159,236,205, 
76,4,208,4,232, 142, 112,3, 157 
,76,4,1790 
7E 4030 OATA 169.180,141,224,2, 
96, 160.7,140, 134,2, 182.39, 1G 
9,32,157,1814 
A3 4040 DATA 72,7,152,157,72,21 
9 . 202 , 18 . 244 . 232 , 142 , 1 34 , 2 , 1 
62,119,169,2101 
22 4050 DATA 100,157,112,7,202, 
16,250, 162. 21, 1G0, 10,24,32,2 
40,255. 159, 1917 
9D 40G0 DATA 7,141,134,2,182,0, 
189, 131, 147.240,6.32,210,255 
, 232. 20B, 2095 
BS 4070 DATA 245,98,173,25,208, 
141 , 25 . 208 . 41 . 1 . 240 , S2 . 169 , 2 
24. 141 . 18.2007 
44 40B0 DATA 20B , 173 . 17 . 20B , 41 , 
127,141, 17,208, 182,. 0,173,72, 
7,72. 199, 1815 
BA 4090 DATA 73,7,157,72.7,232, 
224, 40, 20B. 245, 104, 141, 111 , 7 
.206,253,2087 
OF 4100 DATA 207,208,13.208.254 
,207,208. B, 169,3, 141,254,207 
,206,229,2.2522 
3F 4110 DATA 76,49,234.120,169, 
34,141,20,3,169,147,141,21,3 
, 153,224, 1720 
72 4120 DATA 141,18,208,141,253 
, 207 , 169 , 3 , 141 , 254 , 207 , 32 . 21 
3,147,32,170,2336 
EB 4130 DATA 147 , BB , 96 , BO , B2 , 69 



, B3 , 83 , 32 , 70 , 73 , B2 , 69 , 32 , 84 , 
79, 1249 

3A 4140 DATA 32,93,94,65,82.84, 
0 , 169 , 31 , 141 , 24 , 208 . 173, 17 , 2 
OB, 9, 1410 
7F 4150 DATA 27,141,17,206,169, 
216 , 141 , 22 , 209 , 96 , 173 , 17 , 20B 
,41 , 127, 141 , 19S2 
2B 4160 DATA 17,208,173,26,206. 
9 , 1 . 14 1 , 26 , 208 , 173 , 14 , 220 , 41 
,254, 141 , 1860 
7D 4170 DATA 14,220,96,173,17,2 
OB , 41 , 239 , 141 , 17 , 208 , 96 , 173 , 
17,208,9, 1B77 
F7 4180 DATA 16 , 141 , 17 , 20B , 9G , 1 
69. 0 , 141 , 21 . 208 , 141 , 23 . 208 , 1 
41,27,208,1755* 
76 4190 DATA 141,29,208,162.16, 
157 , 0 , 208 , 202 , IE , 250 , 95 , O , 0 , 
0,0, 1485 
E2 4B00 DATA 189.0,133,250,169, 
122.133,251, 169,0.133,174.13 
3,193.169.122.2320 
12 4210 DATA 133,175,133,194,18 
9 , 240 . 133 , 252 . 169 . 147 , 133 , 25 
3,160.0,177,250.2716 
F7 4220 DATA 145,174,230.250.20 
8,2, 230 , 551 , 230 , 1 74 , 208 ,2,23 
0,175,155,250,2924 
73 4230 DATA 197,252,208.234,16 
5,251, 197. 253, 20B, 226,169. 13 
9,133,187,169,146,3130 
47 4240 DATA 133,198,169,3,133. 
183.169,0. 133, 185,160,0,185, 
91.148,240,2120 
FO 4250 DATA 6.32.210,255,200,2 
08 , 245 . 32 , 207 , 2S5 , 240 , 251 , 20 
1,49,240,4,2635 
ED 4260 DATA 201,56.48.230,41,1 
5,133,186,78,234,245,147,17, 
17.73,78, 1797 
FO 4270 DATA BO , BS , 84 , 32 , 6B , 69 , 
86 , 73 , G7 , S3 , 32 , 7B , BS, 77 , 66 . 5 
9, 1120 

F8 4280 DATA B2 , 13 , 17 , 67 , B5 , 83 . 
61 . 49 , 32 . 47 , 32 , 69 , 73 . 83 , 75 , 6 
1.90B 

C7 4290 DATA 32.56.32,79,92,32, 
57 , 5B , 4S , 32 , O , B7 , B4 , S3 , 0 , 0. 7 

29 

OC 4300 DATA 0,0,0,0,0,0,0,0,0, 
0.0. 255 , 2SS , 255 ,255.0, 1020 



PROGRAM: UILLIAM TELL - LISTING 6 



D4 10 BL-372 :LN-50 :5A-3404 
8 

F9 20 FDR L-0 TO BL:CX-0:FOR D- 

0 TO 15 
BB 21 READ ArPDKES3280,A 
9E 22 CX-CX+A:PDKE 5A*L*16+D , A ; 

NEXT 

A2 30 READA: IF A-CX THEN40 

12 31 PRINT "ERROR IN LINE";LN*C 

L- 105 : STOP 
06 40 NEXT L:SYS39824 
9E 50 DATA 32.195,147,32,35,181 

,32,35, 135.32,216, 162,32, 184 

, 1G0, 169, 1759 
Dl 60 DATA 90,32,207,160,32,204 

,147,32, 15B, 160, 173, 137,3,24 

0,251,32,2058 
03 70 DATA 89,173,173,206.2,240 

,3,32, 23S, 168,173,207,2,240, 

6,32, 19B1 
OA 80 DATA 140,167,32,67,169,17 

3 , 209 , 2 , 240 , 9 , 32 . HE , 187 , 32 . 

108, 169, 1832 
S9 90 DATA 32,154,159,173,216,2 

,240,3,32, 164,169,173,221,2, 

208,26, 1994 
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BE 100 DATA 173,202,3,340, 15,3a 
, 208 . 179 , 32 , 1G2 , 141 , 32 , 140 . 1 
60,169,1,1891 
E8 110 DATA 141,221,2,96.32.8,1 
74,7B,2G, 160,32.140. 160.32,1 
62, 144, 1606 
32 120 DATA 169 , 1 , 141 , 21 , 20B , 17 
3,18, 208 , 208 , 251 , 238 , 33 , 20B , 
238.39,208,2362 
Al 130 DATA 32,248,108,238,1.20 
B , 208 , 237 , 32 , 0 , 36 , 96 , 152 .4,1 
89,8,1807 
F5 140 DATA 4,157,159,208.189,4 
8,4, 157 ,115,3, 202 , 16 , 24 1 , 96 , 
150,163,1888 
3D 150 DATA 49,141,16,208,169,5 
4,141.20,3. 169.163.141,21,3, 
189,0,1468 
E7 160 DATA 141,189,2,32,170,14 
7.88,86, 162,63.188.0, 157,216 
,34,202, 1BB7 
46 170 DATA 18,250,96,162,63,18 
9,24,35, 157,216,34,202, 16,24 
7,96, 141 , 1844 
39 1B0 DATA 154,30,141,174,30,1 
41 . 194.30, 141,214,30, 141,234 
,30,141,254,2079 
CD 190 DATA 30,141,18,31,141,39 
,31,141,58,31,141,78,31,141, 
99,31, 1180 
9D 200 DATA 141 , 11B , 31 , 141 , 139 , 
31.141.158,31.141,178,31,141 
,198,31,141,1781 
2B 210 DATA 218,31,141,239,31,9 
6 , 162 , 39 , 169 , 90 , 221 , 24 , 5 , 209 
,5. 169, 1847 
E5 220 DATA 75,157,24,5,202,16, 
24 1 , 96 , 160 , 13 , 182 , 9 , 140 , 35 , 2 
08,142,1695 
F8 230 DATA 34,209,96,169,147,3 
2 , 210 , 255 , 32 , 105 , 172 , 32, 24 , 1 
81,188,13,1859 
95 240 DATA 32,147,135,169,24,1 
41 ,24,209, 169,200, 141, 191,2, 
133,253, 169, 213B 
EB 250 DATA 4,141,192,2,133,254 
, 173, 167,2.240,46, 162,0, 142, 
167,2, 1829 
SS 260 DATA 169,244,141,122,3,1 
89, 2B, 141, 123,3. 169,0, 141, 12 
4,3,169,1749 
58 270 DATA 32,141,125,3.169,9, 
133,251, 169,29, 133,252, 169,2 
OB, 141, 189,2152 
D3 280 DATA 2,9,7,141,187,2,141 
, 22 , 208 , BOB , 44 , 162 . 202 , 142 , 1 
67,2, 1646 
DD 290 DATA 169,44,141,122,3,16 
9, 13, 141, 123,3, 169,56,141,12 
4, 3, 169, 1590 
57 300 DATA 16,141,125,3,169,64 
,133.251, 189, 13, 133,252. 159, 
208, 141 , 1B9.2176 
6A 310 DATA 2,141,187,2,141,22, 
20B , 189 , 0 , 133 , 255 . 168 , 24 , 162 
,19,177,1810 K 
2C 320 DATA 251,145,253,155,253 
, 105,40. 133,253, 144,3,230,25 
4,24,230,251 ,2734 
D3 330 DATA 208,2,230,252,202,1 
8 , 232 , 230 , 255 , 165 , 255 , 201 , 40 
,178. 14, 109,2587 
A9 340 DATA 191.2,133,253,173,1 
92 , 2 , 105 , 0 , 133 , 254 , 144 , 208 , 1 
69,2,141,2102 
19 350 DATA 180,2,182,0.189.63. 
172, 157,1,4, 199,70, 172,157,4 
1,4,1573 
E3 360 DATA 188,77,172,157,81,4 
, 1B9.B4, 172, 157,27,4, 169,91, 
172, 157,1922 
FD 370 DATA 67,4,189.98,172,157 
. 107 , 4 , 232 , 224 , 7 , 20B , 2 IS , 189 



,4B, 141,2042 
63 380 DATA 35,4.141,36,4,162,1 

1 , 169 , 1 , 157 , 2 , 216 , 157 . 42 , 216 

,157, 1510 
30 390 DATA B2 , 216 , 202 , 16 , 244 , 1 

62, 9, 157, 2B, 216, 157,68,216, 1 

57, 108,216,2254 
E2 400 DATA 202,16,244,168,65,1 

41,14,4,141.54,4, 141,94,4,14 
1,30,1472 
D2 410 DATA 4,141,78,4,141,118, 

4,169, 108.162, 14. 157,120,4.2 

02, 16.1442 
OC 420 DATA 250,162,11,157,147, 

4 , 202 , 16 , 250 , 169 ,109,141, 146 

,4,162.4,1934 
15 430 DATA 189,0,205,157,8.4,1 

89 , 6 , 205 , 157 , 48 , 4 , 1B9 , 12 , 205 

,157, 1735 
A9 440 DATA 88 , 4 , 202 , 16 , 235 , 162 

,2, 189, 19,205, 157, 114,4,202, 

16,247,1862 
D4 450 DATA 162,1.189,16,205,15 

7,75,4, 202 , 16 , 247 , 162 , 4 , 142 , 

183, 2, 1767 
A6 460 DATA 142,52,3.202,142,23 

7,2, 142,236,2, 142, 28 , 208 , 162 

,11,145,1853 
55 470 DATA 37.208,202,142,38,2 

OB, 168,7, 141 ,38,208, 169, 1, 14 

1,40,20B, 19SB 
AE 480 DATA 169,16,141,193,2,16 

9 , 198 , 141 , 235 , 2 , 188 , 206 , 141 , 

184,2,162,2130 
7D 480 DATA 3,160,193.152,157,1 

73 , 2 , 200 . 202 , 16 . 248 , 162 ,3,16 

0,203, 152,2186 
FB SOO DATA 157,177,2,136,202,1 

6,248,88, 162, 1 , 142 . 225, 2, 142 

,226,2, 1936 
E7 510 DATA 202,142,32.209,142, 

33 , 208 , 142 , 185 , 2 , 142 , 194 , 2 , 1 

42, 197,2, 19B5 
7C 520 DATA 142,196,2,142,213,2 

. 142 , 205 , a , i4a , ao4 , a , 14a , iss 

,3, 14a, 1816 
37 530 DATA 136,3,142,66,3,142, 

B2, 3, 142, 137,3, 142, 13B, 3, 142 

, 139, 1423 
F2 540 DATA 3,142,507,2,142,206 

, 5 , 145 , 516 , 5 , 145 , 503 , 5 , 145 , 1 

59,5, 1754 
DC 550 DATA 148 . 830 , 5 , 14a . 251 , a 

, 145,518,5, 145,500, 5, 145,555 

,2,14a, 1943 
BD 560 DATA 505, 5 , 145, SOB, 5, 95. 

173,55,208, 141 ,25, aOB, 41,1, a 

40,35,1749 
17 S70 DATA 173,17,208,41,127,1 

41, 17,208, 173, IBB, a, 340, 3, 76 

,87. 164, 1BB5 
84 SBO DATA 174,187,2,142,22,20 

8, 168,250,141, 18.208,206, 188 

,2,173,137,2227 
12 590 DATA 3,208,3,76,49,334,1 

73 , 205 , 2 , 240 , 6 , 32 , IBS . 167 , 76 

, 181, 1790 
48 600 DATA 163,173.204,2,240,3 

,32,41. 168, 173,503,5,509,559 

.35, 177,5050 
B9 610 DATA 16B, 174, 167,2, aa4,8 

02 , 240 ,51,173, 225 . 2 . 20B . 46 . 2 

38, 187,2,8309 
D4 680 DATA 173,187,2,41,8,240, 

36, 162, 19, 168,200, 133,253,16 

9,4, 133, 1929 
4F 630 DATA 254,169,201,133,351 

,169,4, 133,358, 169,40,133.30 

,189,20, 133, aeso 

7B 640 DATA 21 , 32 , IBB , 103 , 163, 1 
6 . 141 , 1B7 . 2 , 208 , 63 , 174 , 167 , 2 
,208.11,1692 
44 650 DATA 173.222,3,340,53.33 



,253, 163,76.49, 534, 173,226.3 
,308,42,214B 
33 660 DATA 173,187,2,41,7,208. 
32, 163. 19, 168,200, 133. 3S3, 16 
9,4, 133,1835 
38 670 DATA 554,169,198,133,251 
, 169,4, 133,352,163,20, 133,20 
,32,42, 104,2084 
5D 680 DATA 169 , 23 , 14 1 , 1B7 , 3 , 30 
B, 3, aOG, 187,3,76,49,334, 173, 
308,3, 1970 
B3 690 DATA BOB , 1 1 , 173 , 1 , 20B , 20 
1, 100, 175.3. 141 ,308,2,96,34, 
173,0, 173S 
97 700 DATA 208,105,2,144,10,78 
.173.16,308,9,1,141,16,308,1 
04,141,1559 
OA 710 DATA 0,809,805,537,3,206 
.229,338, 136.3, 163,8,141,237 
,2, 169, 51B7 
75 720 DATA 3,45,136,3,141,138, 
3, 170,189,177,2,141.248,7.22 
4,0, 1625 
D9 730 DATA 809 , 808 . 33 , 84B . 10B , 
173, 16,808,41,1,340, 195. 173, 
0.50B.5O1 ,3351 
BB 740 DATA 100.144,185,141,203 
,3,86, 174, 189, 3, 143, 55. SOB, 5 
3B, 169,8, 3035 
S3 7S0 DATA 169,98.141,18.808,3 
3,40, 170, 173,508,3, BOB, 30, 17 
3,303, 5, 1865 
Al 760 DATA 240,29,173,218,2,20 
8,14,32,35, 135,32, 17, 173,173 
,321,2,1703 
57 770 DATA 840.3.76,189,534,32 
, 199 , 1 17 , 35 , 1 19 , 170 , 78 , 1 59 , 5 
34, 173, 137,2099 
7E 7B0 OATA 3,208,6,32,25,171,7 
6,129,234.32, 158, 174, 163,0,3 
8,803, 1616 
5F 790 DATA 188,180,41,169,63,3 
09 , 851 , BOB , 47 , 169 . 33 , 141 , 309 
,a, 145.B51 ,B553 
7F BOO DATA 168,144,133,5,168.1 
,133.3,84,165,8,109,188,3,13 
3,8, 1314 

95 810 DATA 165,3,109,133,3,133 
,3,160,80, 169,62,209,2,240.3 
.136.1540 
E2 920 DATA 16,248,169,38,145,8 
. 20B , 52 , 169 . 59 . 160 , 41 , 209 , 25 
1,20B,16.18B6 
BD B30 DATA 169.32.145,251,141, 
203,2,141,99,3,33, 116,165,76 
,189.a34.193B 
3C B40 DATA 169, BB, 160 , 41 , 809 , B 
51 , 840 , 5 , 800 , B09 , 851 , 808 , 15 , 
180,41,168,3416 
EE 850 DATA 38,145,351.500,145, 
851 , 300 , 145 , 351 , 141 , 807 ,8,17 
3, 194,8,340,3579 
94 850 DATA 19,35.51,157,173,19 
7,5,540,3,76,49, 166, 173, 196, 
3,340, 17B5 
Bl 870 DATA 80,78.143,166,163,3 
, 160 . 80 , 189 , 93 , 167 , 509 , 851 , 5 
40,78,300,3387 
D8 880 DATA 208,251.a40,73,a00, 
a09 , 851 . B40 . 69 , BOO , 809, 851 , 2 
40,63,202, 16,2922 
17 B90 DATA 229,173,195,2,208.1 
O, 160, 81, 32, 99, 157, 144,4B,35 
,116,165,1861 
B4 900 DATA 838,1,208,238, 1.20B 
, 173, 185, 3, 340, 10,306, 135,3, 
B40,5,B16B 
5A 310 DATA 306,195,2,308,13,17 
3 , 1 , 308 , 73 , 355 , 74 , 1 4 1 , 1 , a IB , 
33, 19. 181B 
B5 930 DATA 170 , 76 , 1B9 , B34 , 169 , 
1, 141 ,835,3, 141,336, 3,98, 169 
,0, 141 , 1938 
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B5 930 DATA 195 , S , 173 , 0 . 550 , 41 , 

15,73,15, 133,355,209,43,35,1 

16.165.16B6 
7A 340 DATA 173,535,2,141,549,7 

, 209 , 23G , 2 , 208 , 214 , 173 , 213 , 2 

,73, 1,2134 
91 950 DATA 141.213,2,209,3,32, 

249, lOB, 199, 10, 141 ,236,2, 173 

,235,2, 1923 
FS 960 DATA 73,24,141,235,2,76, 

129 , 234 , 165 , 255 , 201 , 1 , 209 . 14 

,32,97,1987 
3A 970 DATA 167,176,202,32,116, 

165,32, 155, 165,75, 129,234,20 

1 ,2,208, 16,2077 
EE 990 DATA 160,81,32,99,167,17 

6.222,32.116.165,32, 181, 166, 

76.129,234,2066 

52 990 DATA 201,4,240,23.201.5, 
508, B4, 165, 1, 145, 194.5, 142, 1 
97.2. 1808 

C2 1000 DATA 202,142,196,2,169, 

192, 141,248,7,20b, 185, 173,20 

4.2,209, 15,2295 
D4 1010 DATA 173,247,2,208,10,1 

73,0, 220 ,41,16, 209 , 3 , 35 , 195 , 

167,206,1901 
C4 1020 DATA 237,2,209,28,239,1 

35,3, 169,3, 141,237,2,45, 13S, 

3.141,1727 
CB 1030 DATA 135,3, 170, 199, 173, 

2, 141, 24B, 7, 224, 0,208. 3, 32. 2 

49, 109, 1991 
B6 1040 DATA 162,1,142,226,2,20 

2, 142,225.2,76, 129 , 534 , 501 , 9 

,540,56,2018 
CI 1050 DATA 201,9,240,3,76,141 

, 165, 162, 1 , 142, 134,2, 142, 136 

,2,202, 1978 
El 1060 DATA 142,197,2,163.204, 

141 . 248 . 7 , 208 . 223 , 173 , 205 , 2 , 

20B, 15, 173,2317 
10 1070 DATA 247, 2, 20B, 10, 173,0 

. 220 , 41 , 16 , 208 , 3. 32 , 41 , 1GB . 2 

06,237, 1812 
47 1080 DATA 2 , 20B , 58 , 238 , 136 , 3 

.169,3, 141,237,2,45, 136,3. 14 

1,136,1528 
02 1090 DATA 3 , 170 , 199 , 177 , 2 , 14 

1 , 248 , 7 , 224 , 0 , 208. 3 , 32 , 248 , 1 

OB. 162,1922 

53 1100 DATA 1,142,255,5,505,14 
5 , 556 , 5 , 76 , 1 29 , 234 , 206 , 52 , 3 , 
209,20, 1B70 

96 1110 DATA 32, 183, 167, 32, 24B, 

108, 56 , 173 , 1 , 20B ,233, B, 141,1 

,508, 168, 1968 
7F 1120 DATA 6.141,52.3,95,206, 

52,3,209,250.32, 1B3, 167, 32,2 

48, 108, 1787 
D6 1130 DATA 24,173,1,208,105,8 

,141.1, 208 , 208 , 228 , 169 , 0 , 133 

,251 , 159,2027 
32 1140 DATA 4,133,252.133,3,16 

9.0, 133,254, 173, 16,208,51,55 

,112.240,1947 
57 1150 DATA 11.24,163.32,101,2 

51, 133,251,144,2,230,252, 199 

,0,20B, 74,2071 
2E 1160 DATA 74,74,56,233.3,24, 

101 , 251 , 1 33 , 251 , 24 , 189 , 1 , 206 

, 105,2, 1729 
1C 1170 DATA 74,74,74,56,233,6, 

133,2, 133,253, 160,5.6,253,38 

,254, 1754 
BE 1180 DATA 136,209,249,24,165 

, 251 , 101 , 253 . 133 , 251 , 165 , 252 

,101,254, 133,252,2328 
6E 1130 DATA 165,3,240,14,165,2 

. 133 , 253, 169, O, 133 , 3 , 133 , 254 

,160,3,1930 
A2 1200 DATA 208 , 51B , 96 , 206 , 1 , 2 

08,32, 19, 170, 173, 193,2, 10, 14 

1,1.212,1990 



2C 



98 
89 
04 
07 
CE 
DA 
FB 
CF 
BB 
CO 
F3 



BE 



1210 DATA 206. 193. 2. 208. 23.1 
62 , 16 . 142 , 133 , 2 , 232 , 142 , 195 , 
2,163,0,1887 

1220 DATA 141,4,212,141.194, 
2, 141 , 197, 2, 141 . 196,2,96,29, 
76,75. 1649 

1230 DATA 67,160,41,169,34,2 
09 , 251 , 240 , 7 , 200 , 169 , 35 , 203 . 
251,208,2,2252 

1240 DATA 24,36,56,96,169,0, 
141,11,212,169,9,141,12,212, 
141,13.1502 

1250 DATA 212,169,17,141,11, 
212,163,45, 141,9,212,95, 169, 
0,141,11,1754 

1260 DATA 212,163,9,141,12,2 
12, 141 , 13,212, 169, 33, 141 , 11 , 
212,169,8,1864 
1270 DATA 141,8,212,86,169,1 
1.141,12,212.141,13,215,169, 
17,141,11,1706 

12B0 DATA 212,153,224.141,8, 
212,36, 173, 184,2,73, 3, 141 , IB 
4,2,141,1965 

1290 DATA 248,7,95,173.56,3, 
209 , 67 , 169 , 2 , 141 , 205 , 2 , 141 , 6 
6,3, 1597 

1300 DATA 141,205,2,13,21,20 
8,141,21. 209 , 173 , 1 , 20B , 141 , 3 
,208, 163, 1B64 

1310 DATA 197,141,549,7,173, 
16 , 208 , 72 , 41 , 1 , 240 , 5 , 104 ,9,3 
,209, 1674 

1320 DATA 3,104, 41, 2S2, 141,1 
6,208,56, 173,0,208,233, IB, 14 
1,2,20B.1B04 
37 1330 DATA 176.8,173,16,208,4 
1 , 253 , 141 , IS, 208 , 96 , 56 , 173 , 2 
,208.233,2008 

1340 DATA 4,141,2,209,201,30 
,175,242.169,0,141.66,3,141, 
205,2,1731 
79 1350 DATA 173,21,209.41,253. 
141 , 21 , 209 , 96 , 173, 66 , 3 , 20B , 7 
4,169,2, 1857 

1360 DATA 141,204,2,141,66,3 
,141,206,2, 13,21,208, 141,21, 
208, 173, 1691 

1370 DATA 1,509,141,3,209,16 
9 , 199 , 141 . 249 , 7 , 173 , 16 , 208 , 7 
5,41 , 1, 1B37 

13B0 DATA 208,6.104.41,262,1 
84,80,6, 104,8,3, 141,82,3, 141 
, 16. 1380 

1330 DATA 208,24,173,0,209,1 
OS, IB, 141.5,508, 144,158, 173, 
16,208,3,1735 

1400 DATA 2,141,16.20B,141,B 
2,3,36,24, 169,4, 172. B2, 3, 208 
.22,1373 

1410 DATA 103,2,208.144,13.7 
2, 173, 16, 20B. 9, 2, 141, 16,208, 
141 ,82, 1544 

1420 DATA 3,104,141,2.208,36 
, 103 , 2 , 508 , 201 , 60 . 144 , 245 , 16 
9,0, 141 , 1B33 

1430 DATA 204.2.141,66,3,141 
. 82 . 3 , 173 , 21 , 208 , 4 1 , 253 , 141 , 
21,20B,1708 

1440 DATA 96,173,203,2,208,3 
7 , 206 , 183 , 2 , 20B , 32 , 162 , 4 , 142 
,183.2,1843 

14S0 DATA 56,189,99,4,233,1, 
201,48, 176,29,72, 160,4,185,8 
B, 4, 1538 

1460 DATA 201,48,208,8,135,1 
6,246, 104, 140,251,5,96, 104,5 
4,105,10,1669 

1470 DATA 157.88,4,202,16,21 
8,36, 157,88.4,36, 162,0, 142, 1 
41,3,1574 

1480 DATA 142,142,3,232,142, 
143,3,232,56, 183, 114,4,253, 1 
41,3,201,2000 



E3 
91 
BB 
EA 
06 
OE 
BF 
OA 
50 
3D 
B6 
12 
5C 



3F 1430 DATA 48.176,2,105,10,15 

7 , 114 , 4 , 202. 16 , 23B , 232 , 142 , 1 

1,212, 142,1811 
El 1500 DATA 13,212,163,3,141,1 

2,212, 169,3, 141 ,B, 212, 169, SS 

,141,11,1687 
38 1510 DATA 212.152,0,142,206, 

2,232,142,10,212,173,114,4,2 

01,48,208,2068 
CF 1520 DATA 17,173,115,4,201,4 

B.20B, 10, 173, 116,4,201,48,20 

8,3,141,1670 
63 1S30 DATA 247,2,96,169,0,141 

, 247 , 2 , 141 , 207 , 2 , 141 , 141 . 3 , 1 

41,142, 1822 
El 1540 DATA 3,169,5,141,143,3, 

162,2,24. 189. 114,4, 125,141,3 
,201, 1429 

4C 1550 DATA SB, 144,2,233, 10, 15 
7 , 1 14 , 4 , 202 , 16 , 239 . 96 , 162 , 0 , 
142,209, 1797 
62 1560 DATA 2,142,141,3,232,14 
2, 142,3,24, 183,35,4, 125,141 , 
3,201 , 1523 
EE 1570 DATA 58.144,2,233,10,15 
7 , 35 , 4 , 202 . 16 , 23B , 23B , 200 , 5 . 
173,200, 1912 
FD 1580 DATA 2,201,55,208,77,14 
1,222,2, 32, 195, 160, 159. 75 , 32 
,207, 160, 153B 
51 1590 DATA 35,6,161,96,169,0, 
141,516,5,141,141,3.141,145, 
3,141,1535 
CE 1600 DATA 143,3,169,2,141,14 
4,3,162,5,142, 14S , 3 , 202 , 24 . 1 
B9,9, 1485 
33 1610 DATA 4.125,141,3,201,58 
,144,2,233.10,157,8,4,202,16 
,238,1546 
40 1620 DATA 232,189,48,4,221,8 
, 4 , 240 , 4 , 176 , 7 , 144 , 6 , 232 , 224 
.4,1743 

EF 1630 DATA 208.239.96.173,52. 
4,105,5,201,59,144,2,233,10, 
141,52,1723 

1640 DATA 4,173.51,4,105.2,2 
01,59, 144,2,233,10, 141,51,4, 
162, 1345 

1650 DATA 2, 183, 4B, 4, 105,0,2 
01, 5B, 144,2,233, 10, 157, 4B, 4, 
202, 1407 

1660 DATA 15,239,96,163,0,14 
1,4,212, 169, 17, 141 ,4,212, 169 
,6, 141 , 1736 
1C 1670 DATA 5,215,169,56,141,5 
, 515 , 96 , 206 , 190 , 2 , 16 , 73 , 160 , 
2,140,1656 
6C 1680 DATA 130 , 2 . 162 , 7 , 1B3 , 24 
, 34, 4B. 3, 24, 144, 1,56.42,157, 
24, 1107 

33 1690 DATA 34 , 1B9 , 20B , 34 , 4B , 3 

. 24 , 144 , 1 , 56 , 42 , 157 , 20B , 34 , 1 

89,216, 1587 
AE 1700 DATA 33.72,41,1,208,3,2 
4, 144, 1,56, 104,106, 157,216.3 

3, 183, 1388 
DA 1710 DATA 8B , 34 , 72 , 41 , 1 , 20B , 

3 , 24 , 144 , 1 . 56 , 104 , 106 , 157 , BB 

, 34, 1161 

El 1720 DATA 202,16,133,136,208 
, 188 , 96 , 173 . 133 , 2 , 20B , 30 , 163 
, 19B, 141,248,2407 
E2 1730 DATA 7 , 160 , 62 . IBS , 129 , 4 
9, 1S3, 192,205. 136, 16,247, 163 
, 1 , 141,235,5098 
7D 1740 DATA 2,160,20,140,172,2 
, 140 , 133 , 5 , 96 , 505 , 236 , 2 , 208, 
52, 169, 1B06 
CB 1750 DATA 4,141,236,2,173,22 
0,2,20B,73, 172. 172,5,48,36,1 
60,59, 1710 
C7 1760 DATA 162 , 2 , 185 , 12B. 49 , 1 
53, 131 ,49, 136.202, 16,246, 1S2 
, 16,241 ,205,2074 



5A 
44 
4C 
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7F 1770 DATA 175,2,163,0,141,13 

8.49,141, 153,49, 141, 130.49,5 

3B.39.50B, 17BS 
58 1760 DATA 538,35,50B.9G,1G9, 

13 , 141 , 35 , SOB . 175 , 519 , 5 , SOB , 

245.35,35,5056 
FA 1790 DATA 135,35,164,167.169 

, 7 , 141 , 33 , SOB. 169, 62 , 141 , 17S 

,5, 141,550, 1969 
90 1B00 DATA 5,96,175,175,5,48, 

19, 165,5,185,195,506,153, 1SB 

,49,136,1754 
85 1810 DATA 505,16,546,140,172 

,2,32,248.108,96,169,0,141,2 

50,5,141, 193S 
F7 1B20 DATA 218,2,141,199,2,14 

1 , 203 , 2 , 96 , 1 74 , 167 , 2 . 240 , 3 , 7 

6, 199, 1865 
S2 1830 DATA 171,173. 138, 3.20B, 

22 , 169 , 1 . 141 , 21 , 208 ,141.16,5 

OB. 169,60, 1843 
18 1B40 DATA 141,0,208,169,185 

141,1, 208 , 141 , 338, 3, 96 , 56, 17 

3,0, 208, 1B6S 
3E 1BS0 DATA 233,1,176.10,72,17 

3,15,208,41,254, 141, 16.208,1 

04,141,0,1794 
E6 1860 DATA 20B , 206 , 237 , 2 , 208 , 

28.53B, 135,3. 169,3,141,537,2 

,45,135,1997 

F2 1870 DATA 3,141,135,3,170,19 

- 8.173.2,141,24B,7,224,0,20B, 
3.35, 1679 

BD 1BB0 DATA 248,106,173,139 3 

50B . 60 , 162 , 0 , 32 , 203 . 166 , 160 . 
81,169,67,1979 

FA 1B90 DATA 203,251,208,4,140, 
139,3,96, 160,81, 163,82.209,2 
51,240,34,5575 

OC 1900 DATA 136,209,251.240,29 
. 169 , B6 , 203 , 251 , 240, 23 , 200 , 2 
09,251,240,18,2761 

FE 1310 DATA 24,173,1,209,105,5 

,141,1,208.73,255,74,141,1,2 
12.32,1651 

AB 1920 DATA 19,170,96,173,0,20 

8 , 201 , 174 . 208 , 248 . 173 , 235 , 2 , 

141,248,7.2303 
DO 1930 DATA 141,137,3,32,158.1 

73, 96 , 173 . 138 . 3 , SOB, 23 , 165 . 1 
,145,51,1581 
62 3940 DATA 208 , 202 , 142 , 16 . 20B 
,169,32,141,0,508,169,182.14 

1,1,208.141,5169 
B9 1950 DATA 138,3,95,24,173,0, 

208 , 105 , 1 , 141 , 0 , 20B , 206 , 237, 

2 , 208 , 1 7S0 

CA I960 DATA SB , S3B , 136 . 3 , 163 , 3 
.141,237,2,45,136,3, 141,136. 

3,170, 1591 
98 1970 DATA 189,177,2,141,248, 

7,224,0.208.3,35.248,108,173 
, 139,3, 1902 
AC 1980 DATA 208,161,162.0,35.5 

03, 165, 160 , B2 , 159, 75, 209, 251 

,20B,4, 140,2230 
E6 1330 DATA 139.3.36,160,90,36 

3 , 82 , 209 , 251 , 240 , 19 , 200 , 209 , 

551,540,14,5365 
21 2000 DATA 169,30,209,251 540 
, 6 , 500 , 509 , SSI , 540 , 3 , 76 , 160 , 

171 ,96,65.5378 
3E 5010 DATA 19,3,15.18,5,35,55 

,5,5,19,20,32,32,65.20,9,351 
IS 2020 DATA 13,5,32,32,55,1,16 

,16,32,5,39.65,12.9,22,5,353 
B2 2030 DATA 19.32,65,2,15.12,2 

0,19,32. 169,52,141.73,15. 141 
, 150,967 

2F 2040 DATA 15, 341 . 180 , IS, 143 , 
213.15,141,245,15,141,117,15 
,141,229,16,1781 

El 2050 DATA 141,8,37.141,41,37 



,141, BB, 17, 143 , 153, 37, 341,25 

3, 37, 343 , 3474 
11 2060 DATA 42, IB, 143,65, 38, 34 
1, 132. IB, 341,1, 19, 141.96,19, 

141,221,1354 
13 2070 DATA 19,141,236,19,141, 

30,20,141,73,20, 141,120,20.1 

41,210,20,1492 
BO 20B0 DATA 141 , 554 , 50 , 143 , S7 , 

21 , 141 , 237 , 23 , 141 . 52 , 22 , 141 , 

98.22,141,1520 
SO 2030 DATA 1B1 , 22, 141 , 21B, 22, 

141,251.22,143,355,23,141,21 

5,23, 141,245, SOBS 
B6 2100 DATA 23,141,56,24,141,1 

15,24,141,141,24,141,249,24, 

141,59,25,1439 
5A 2110 DATA 141,6,26,141,117,2 

6 , 141 , 214 , 25 , 141 , S3 , 27 , 141 , 1 

27,27, 141, 149S 
6F 2120 DATA 153,27,141,241,27, 

141 . 1 3 , 2B , 141 , 136 , 28 , 141 , 205 

,28,141.213,1799 
B6 2130 DATA 28.141,18,29,141,1 

73,29, 141, 1B9, 29, 141,246,59, 

141,64,30,1575 
SA 5140 DATA 96,160,0,135,5,140 

,114,3,140.519.2,200,132,3,1 

40,21B,1701 
Bl 2150 DATA 2,56,185,75.4,249, 

5,0,201,49,176,2,105,10,153, 

75, 1343 

FO 2160 DATA 4,135,16.238,173,7 
6,4,201,48,208, 11, 173,75,4,2 
01,48.1616 
E5 * 2170 DATA 208.4,141.221.2,96 
,160, 10. 340.5,212,200, 140,12 
,212,160,1323 
FD 2180 DATA 6,140,6,212,136,14 
0,13,212,96, 169,48.205,114.4 
,208,15,1721 
CB 2130 DATA 205 , 1 IS , 4 , 208 ,7,17 
3 , 1 14 , 216 , 73, 1 , 240 , 2 , 169 , 1 , 1 
41,114,1783 
Bl 2200 DATA 216,141,115,216,14 
1,116,216,96,0,0.0,0.0,0.0,0 
, 1557 

15 5210 DATA 363,370,343,253,7, 
363, 371 , 141 ,252, 7, 169, 175, 14 

I, 93,3, 141,5199 

BE 2220 DATA 94.3.169,219,141,2 

55,7, 173,51,208.41,1,9, 129, 1 

41,51, 1631 
OE 5230 DATA 508,169,156,141,14 

, SOB , 169 , 49. 141 , 15 , SOB , 173 , 5 

9.S08,9, 1SB,2035 
B9 2240 DATA 341.29.208.159.11, 

141, 41, 508, 143, 42, 20B , 141. 43 

,20B, 141,44, 1916 
FA 22S0 DATA 20B , 163 , 0 , 141 . 99 , 3 

,141,84,3,141,86,3,141,100,3 

,141, 1463 

6D 22G0 DATA 101,3,163,4,141,46 

,208,141,102,3,141,88,3,141, 

30,3, 13B4 
86 2270 DATA 141 , 10S, 3, 141 , 106, 

3 , 32 , 139 , 17B , 32, 184 , 17B , 95 , 1 

69,0, 141 , 1649 
83 2280 DATA 7,212,141,11,515,1 

69,3, 141, B, 212, 169, 10,141,12 

,212,141,1B01 
19 2290 DATA 13,212,169,33,141, 

I I , 21 2 , 96 , 1 73 , 39 , 3 , 240 , 4 , 32 , 
358,173,1733 

3A 5300 DATA 36.165,4,35,58,177 

,160,41,35.19,176, 155.0,105, 

0,141, 1342 
CE 2310 DATA 96, 3 , 20B , 22 . 1 72 , 25 

0 , 7 , 192 , 170 , 144 , 5, 160 , 154 , 14 

0,250,7, 19B0 
5C 2320 DATA 32,132,177,169 0 1 

05,0,141,84,3,162,6,32,28.17 

7.150, 1408 



7E 2330 DATA 40,32,39,376,163,0 
, 105, 0,141, SB, 3, 208,22, 175, 2 

51,7,1443 
30 2340 DATA 192,170,144,5,150, 

169, 140.251 .7,32, 132, 177. 169 
,0.105,0,1853 
B3 2350 DATA 141,86.3,173,5.208 
, 201 , 228 , 144 . 3 , 32 , 139 , 1 7B , 17 

3,7,208,1929 
36 2360 DATA 201,228.144,3,32.1 

84 , 1 78, 32 , 244 , 174 , 32 , 124 , 175 
,32,227, 178, 218B 
20 2370 OATA 96,173.100,3,240,3 

3, 538 , 46 . 508 . 169. 0 , 141 , 1 1 , 51 

5,169,5,1844 
07 53B0 DATA 141,15,212,141,13, 

232,24,373,15,208,105,2,141. 

IS. 20B, 141,1763 
16 2390 OATA 8,212,169,17,141,1 

1,212.173,91.3,240.3,32,96, 1 

75,173,1756 
9E 2400 DATA 92,3,240,3,32,205, 

17S, 173.103,3.240,6,206,103, 

3,76, 1653 
C9 2410 DATA 197,174,32,155,177 
, 173 , 556 , S , 240 , 21 , 173 , 5SS , 5 , 

240, 15,206,2259 
A8 2420 DATA 101,3,208,19,206,1 

02,3, 20B, 14. 169, 1,141,100,3, 

96, 141 , 1S15 
79 2430 DATA 101.3,169,4,141,10 

2.3, 173, 104,3,240,4,206, 104. 

3,95, 1456 
F7 2440 DATA 32,19,178,96,173,9 

1.3.50B.71. 173. 1. 208. 205. S. 2 

08,208, 1879 
85 2450 DATA 63 , 173 , 16 , 20B , 41 , 4 

, 20B , 56 , 173 , 96 , 3 , 208 , 51 , 173 , 

250,7, 1730 
3F 2460 DATA 201,158,176,44,173 

,4,20B,205,0,20B,144,36. 141, 

8,508, 173,5087 

09 5470 DATA 1,508,141,9,509,16 

9 , 15B , 141 , 250 . 7 , 173 , 15, 208 , 4 

1,233,141,2110 
53 2480 DATA 16 , 20B , 173 , 21 . 208 , 

9, 16, 141,21,209,141,91,3,32, 

237,173. 1638 

6E 2490 DATA 96 , 104 , 173, 21 , 20B, 
41 , 533 , 141 , 51 , SOB , 173, 36, 3, 2 
08,5,160,3887 

CO 5500 DATA 154,340,550,7,159 

0,141.31,3, 343, B, 508, 341 .3. 5 
08,35,1766 
45 5530 DATA 56.373,8,508,533,3 

.176,36,72,373,36,208.73,36, 

370,41,1642 
BF 2520 DATA 16 , 20B , 206 . 13B , 141 

, 16 , 208, 104 , 341 , B , 208 . 35, 173 

.92.3,208,1966 
2B 2530 DATA 103,173.1.208,205, 

7 , 208 , 208 , 95 , 173 , 16 , 20B , 41 , 8 

,208. BB, 1950 
Al 2540 DATA 173,38,3,208,83.17 

3 , 251 , 7 , 201 , 1B7 , 144 . 76 , 173 , 6 

,208,201,2172 
AA 2S50 DATA 40,144,69,205,0,20, 

8, 175,64, 341, 10,208, 373,3,20 

8.343,11,1739 
EC 2560 DATA 208,160.165,140,25 

1,7, 173,16,208,41,223, 141,16 

,208,173,21,2151 
34 2S70 DATA 208,9,32,141,21,20 

8 . 141 , 92 , 3 , 32 , 237 , 173 , 96 , 24 , 

173, 10, 1600 
91 2580 DATA 208,105,3,144,16,7 

2, 173, 36,208,73,32,370,41,32 

,240,9, 1542 

BB 2590 DATA 13B, 141, 16,208, 104 
, 141, 10,208,96, 104, 173,21,20 
8.41,223.141,1873 

79 2600 DATA 21 , 208, 173, 9B. 3 , 20 
B,S,160, 169, 140,251,7,169.0, 
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141 , 10, 1763 
S4 2610 DATA SOB, 141, 11.E0B. 141 
,96,3,96,30,67,75,76,85,84,5 
6,90, 1490 
DS 5620 DATA 59,35,34.199,98,3, 
20B , 64 , 169 , 34 , 509 , 67 , 540 , 7 , S 
00, 169, 1769 
13 5630 DATA 35 , 509 , B7 , SOB ,49,1 
89 , 1 , 508 , 505, 1 , 508 , 540 , 41 , 14 
4,39,173.5037 
OA 5640 DATA 16,509,61,55,115,5 
OB, 59, 189,0,509,501, 36, 144,2 
4.189.1.1685 
69 5650 DATA 506,533,9,157,1,50 
8 , 169 , 175 , 554 , 4 , SOB ,5, 141 , 55 
0.7,508,3503 
CI S560 DATA 3,141,551,7,56,96. 
54,96, 160,80, 169,34,509,67,5 
40,544,1997 
54 5670 DATA 500,509,87,540,539 
. 500 , 509 , B7 . 540 , 534 , 160, BO , 1 
69,35.509,87,5685 
ED 2GB0 DATA 540,526,500,509,87 
, 540 . 551 , 500 , 509 , B7 , 540 , 516 , 
SOB ,516, 506 , 88 , 3093 
CB 5690 DATA 3,509,55,173,93,3, 
73 , 1 , 141 . 93 , 3 , 141 , 550 , 7 , 169 , 
8.1391 

F9 5700 DATA 141,98,3,56,173,5, 
SOS, 533,8, 141 ,5, SOB, 173,556, 
8,508. 1B7B 
15 5710 DATA 19,56,173,4.508,33 
3,1,141.4,508,176.9,173,16,2 
08,73, 1701 
BE 5750 DATA 4,141,16,508,173,5 
55, 5, SOB, 19,54, 173.4,508, 105 
, 1,141, 1BS3 
7F 5730 DATA 4,308,144,8,173,16 
,509,73,4, 141 , 16,508,95,506, 
90, 3, 1S9B 
56 2740 DATA SOB , 55, 173, 94 , 3, 73 
,1,141,94,3,141,251,7,169,8, 
141 , 1532 

C6 2750 DATA 90,3.56,173.7.509, 
533.8, 141, 7, SOB. 173,226,2,20 
6.19.1765 V 
68 5760 DATA 56,173,5,208,533,1 
, 141 ,S, 208, 176 , B , 173, 16, SOB , 
73, B, 1694 
35 2770 DATA 141,16,508,173,525 
, 2. 20B, 196,34, 173,6,208,105, 
1,141,6,1B33 
DE 2780 DATA 20B , 144 , 185 , 173 , 16 
,208.73,9. 141, 16. SOB, 96. 169, 
0,133, B7.1BES 
C3 S790 DATA 169 , 4 , 133 , 9B , 133 , 9 
0, 169.0, 133,95, 173, 16,208.61 
,56.112,1637 
65 5800' DATA 240,11,24,159,32,1 
01 , 87 , 133, 87 , 144 , 2 , 230, BB , IB 
9,0,208. 174S 
ID 2810 DATA 74,74,74.55.233,3, 
24 , 101 , 97 , 1 33 . B7 , 24 , 1B9 , 1 , 20 
B, 105, 1473 
62 2920 DATA 2,74,74,74,55,233, 
6.133,59, 133,91, 160,5,6,91,3 
B . 1265 

90 2830 DATA 92,136,208.249,24, 

165,87, 101,91, 133,87.165,88, 

101,95, 133. 1955 
95 2940 DATA 88 , 165 , 90 , 240 ,14,1 

65,89, 133,91,169.0,133,90, 13 

3,92, 160, 1855 
CB 5850 DATA 3 , SOB . SIB. 95 , 165, 1 

0, 160,50. 159,8, 176,509,87,54 

0,10, 200 , 2056 
F2 2860 DATA 209,97,240,5,205,1 

6,539,56,96,54,96, 173,96,3,2 

40,4, 1786 
7E 5870 DATA 35,155,176,96,173, 

84,3,540,20, 173, 16,505,41,4, 

240,7, 1639 
2D 2650 DATA 173.4,209,201,95,1 



76,6, 236 , 5 , 205 , 235 , 5 , 205 , 206 

,105,3,2066 
54 2890 DATA 508,41,169,4,141,1 

05,3, 173,91,3,240,14, 172,250 

,7.192,1913 
F7 2900 DATA 161,144,14,160,156 

,140,250,7,209,17,172,250,7, 

195.157,176,3513 
97 3910 DATA 5,536,550,7,505,5. 

160 , 154 . 140 . 550 , 7, 24 , 173 , 226 

,2,240,2089 
D6 2920 DATA 6,173,225,2,209,3, 

96 , 105 , 2 , 141 , 65 , 3 , 55 . 173 ,4.5 

08,1490 

B5 2930 DATA 537,95,3,176,10,75 

,173. 16,506,73,4, 141, 16,509, 

104,141,1667 
IB 2940 DATA 4.206.96.173,98,3, 

240 , 4 , 32 , 205 , 176 , 96 , 173 , 56 , 3 

,240, 1837 
CD 2950 DATA 20,173.16,208,41,8 

, 208 , 7 , 173 , 5 , 209 , 201 , 20 , 144 , 

6,235, 1S77 
92 2960 DATA 7,209,239,7,209,20 

6, 106 ,3, 506, 41 , 169 , 4 , 141 , 106 

,3, 173, 1B2B 
B6 5970 DATA 95 , 3 , 240 , 14, 172, 2S 

1,7, 192 , 162 , 209 , 14 , 160 , 165 , 1 

40,2S1,7,207B 
BA 2980 DATA 208,17,175,551,7,1 

92 , 166 , 240, 5, 206 , 251 , 7 , SOS , 5 

, 160, 163,2264 
2F 2990 DATA 140,251,7,24,173,2 

25.2,240.6, 173,226,5,206,3,9 

6,105, 1581 
B3 3000 DATA 2,141.55,3,24,173, 

6 , 20B , 109 , 95 , 3 , 144 , 10 , 72 , 173 

, 16, 1254 

42 3010 DATA 308.73,8.141,16,20 

5, 104, 141,6,205,95, 169, 174. 1 

41,5,206, 1906 
30 3020 DATA 169,80.141,4,208.1 

73, 16,20B,9, 4, 141. 15.20B, 173 

,21,208,1779 
7D 3030 DATA 9,4,141,21,209,159 

, 154 , 141 , 250 , 7 , 169 , 100 ,141,1 

03,3, 169, 1789 
B7 3040 DATA 0,141,96,3,141,91, 

3,96, 169, 174, 141,7,206,169, 1 

00.141,1680 
14 3050 DATA 104,3,159,0,141,98 

,3, 141,38,3, 141,6,206, 173, 16 

.208,1506 
34 3060 DATA 41,247,141,16,209. 

173,21,206, 9,8, 141,21,208, IS 

9,159,141,1921 
El 3070 DATA 251,7,96,173,30,20 

5 , 41 . 1 , 240 , 17 , 173 , 21 , 206 , 41 . 

127,141,1775 
CS 3090 DATA 21,205,169,1,141,9 

9,3, 141,203,2,96, 173,21,209, 

41,2,1529 
C5 3090 DATA 240.70,162,4,173,2 

1,208,51,56, 112,240,5,32,73. 

179, 144, 1780 
IE 3100 DATA 7,232,232,224,15,2 

08,237,96,199,56.112,73,253, 

45,21,209,2205 
AE 3110 DATA 141,21.209,224,4,2 

OB, 15,173,21 ,208,41,239, 141, 

21,308,33,1905 
73 3120 DATA 139,178,32,164,169 

, 95 , 224 , 6 , 209 , 1 4 , 1 73 , 21 . 208 , 

41,223,141,2037 
6B 3130 DATA 21,208,32,184,178, 

32, 164. 159.96.56, IBS, 1,209.2 

33, 10,205, 1986 
55 3140 DATA 3,209.176,106,105, 

20,205,3,20B, 144,99, 173,349, 

7,301 , 199,3106 
00 3150 DATA 340,58.173,15.508. 

61.56, 112. 20B, 84 .56, 173,3,20 

B,233,B,1B56 



11 3160 DATA 221, 0.20B, 176,73, 1 
05 , 16 , 221 , 0 , 205 , 144 , 66 , 24 , 95 
, 173, 16, 1747 
FA 3170 DATA 30B, 61, 56, 112,308, 
29, 159,2,45, 16 , 209 , 20B , 49 , 56 
,173,5,1605 
41 31BD DATA 508, 333, 8, SSI, 0,50 
8, 175,36. 105, 16, 176,224,221, 
0,205, 144,2156 
3A 3190 DATA 29,176,217,24,169. 
2 , 4S . 16 , 208 , 240 , 12 , 173 . 2 , 208 
,105,9. 1634 
37 3200 DATA 221,0,208,144,3,17 
5,197,173,2,508,105,8. 176,24 
2,56,96,2021 
C5 3210 DATA 0,0,0,0,0,0,0,0,0, 

0.0,0,0,0,0,0,0 
6B 3220 DATA 76,221,180,173,25, 
209 , 141 , 25 , 208 ,41,1, 208 , 3 , 76 
,49,534, 1669 
73 3230 DATA 169,46,141,18,308, 
173, 17,508,41.127.141.17,208 
,165.255,240,2176 
66 3240 DATA 3,75,34,152,173,54 
5 , 7 , 501 , 208 . 240 , 107 , 206 , 237 , 
2,20B,23,2155 
13 3250 DATA 169,3.141,237,2,24 
,173,248, 7, 105, 1 , 201 , 204 , 144 
,5,32,1695 
00 3560 DATA 545,108,169.500,14 
1,549,7,54, 173,0,506, 105, 1,1 
41,0.208,1981 
66 3270 DATA 72,201,98,206,5,15 
9,93,141, 1,206, 104,201 , 106,2 
08,52,141.5008 
36 32B0 DATA 2,208,169,101,141, 
1 , 20B ,141,3, 208 , 163 , 205 , 141 , 
246,7,173,2158 
80 3590 DATA 21,208,9,2,141,21, 
208, 169,0, 141 , 11 ,212, 141 ,13, 
212, 169, 1675 
58 3300 DATA 9,141,12,212,169,3 
, 141 . 6 , 212 , 169 , 55 , 141 , 1 1 , 212 
,169,1,1675 
11 3310 DATA 141.10,212,76,49.2 
34 , 24 , 173 , 16 , 203 ,41,2, 205 , 34 
, 173,2, 1603 
53 3320 DATA 20B . 105 , 4 , 141 ,2 . 20 
B, 144,235, 173, 16,208,9.2, 141 
, 16,209, 1920 
6D 3330 DATA 32 . 81 , 1B1 , 32 , 1 16 , 1 
67 , 32 , 164 , 169 , 1 69 , 32 , 14 1 , 55 , 
5,209,211,1795 
3B 3340 DATA 173,5,208,105,4,20 

I, 100, 176,6, 141, 2, SOB, 7S, 49, 
234.206, 1991 

AS 3350 DATA 104,3,208,191,141, 

II, 212,205, 105, 3, 20B, 183, 173 
,51 ,208,41 ,5018 

B5 3350 DATA 249,141,21,209,169 

,32, 141 , 104, 3, 160,0, 169,32, 1 
53.20B.5, 1735 
B7 3370 DATA 153 , 231 . 6 , 159, 13, 1 
53.208,218, 153,23,1 ,218, 136,2 

06, 237 ,150,5.2500 
El 3380 DATA 163,13,153,25,218, 

136, 16,250. 132.255.76.34. 162 

,32,89.37, 1817 
IB 3390 DATA 165.24, 141,23,208. 

141,29,205, 169,62, 133,3, 163, 

50,141.7,1677 
55 3400 DATA 208,141,9,208,159, 

179, 141,251 ,7, 169, 184, 141,25 

5,7,169,148,2383 
91 3410 DATA 141,6,208,169,195, 

141,8,208, 159,7, 141,45,509, 1 

41,43,208,5036 
E6 3450 DATA 169,39,133,5,159,2 

4, 133,253, 163,5, 133,254, 169, 

0,133,255,2040 
51 3430 DATA 133,10,120,159,48, 

141, 18,205, 163,211 , 141 ,20,3, 

169, 179, 141 . 1880 
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54 3440 DATA 31.3,173,17,306,41 
, 1S7, 141, 17 , 808, 173, SB , BOB, 9 
,1,141,1514 
E5 3450 DATA 55,808.173,14,520, 
41,854,141, 14,880,88, 173,236 
,8,240,851,8301 
DC 34E0 DATA 35 , 1S9 , 32 , 160 , B , 15 
3,241,5,153,85,5.153,65.6,13 
6, 16,1484 
30 3470 DATA 844,160,5,163,1,15 
3.86,818. 1B5, 17B, 181, 153.26, 
6, 136, 16, 1B5B 
58 3480 DATA 242,160,14.185,185 
,181, 153,221,6,169,1,153,221 
,21B. 136, 16,2261 
6C 3490 DATA 248,160,85.185,800 
.181,153,40.7,159.1,153,40,8 
19,136,16.1987 
ID 3500 DATA 242,160,34,185,826 
,181,153,115,7,169,1,153,115 
,219.136,16.2112 
E9 3510 DATA 248.160.28,185,5,1 
B8 . 153 , 19S , 7 , 1 69 , 1 , 1S3 , 1 99 . 8 
19, 136, 16,8054 
CI 3520 DATA 248,96,80,8,5,32,5 
,14,4,25,5.18, 18,32.4,15,531 
22 3530 DATA 14,5,38,23,9,18,18 
, 85 , 85 , 15 , 21 , 32 , 8, 1 , 82 , 5 . 261 
AF 3540 DATA 32,18,5,19,3,21,4, 
5,4,32.25,15,21, 18,38,19,873 
58 3550 DATA 15,14,8,15,16,5.32 
^2S, 15, 81, 38; 5, 14, 10, 15,85,8 

D8 3560 DATA 5,4,38,20,8,5.38,7 
,1,13,5,38,13,15,18.5,215 

5D 3570 DATA 38,20.8,1,14,13,25 
,38,23,9,6.5,32.5,14.10,249 

71 3580 DATA 15.85,5,4,38,13.5. 
32.23,18,9,80,9, 14.7,38,863 

BB 3530 DATA 9.20,173,236,8.808 

, 88, 165 , 10 , 808. 81 , 169, 128 , 14 
1,4.818, 1848 
88 3600 DATA 169.10,141,1,218.1 
41.6,812,162,17,160,0,140.5, 
212,169.1757 

98 3610 DATA 189,141,4,818,165, 
253 , 133 , 851 . 165 , 854, 133 , 852 , 
165,3.73,30,8363 
AC 3620 DATA 133,3,145,251 84 1 
65 , 851 , 105 . 40 , 133 , 851 , 165 . 25 
2,105,0.133,8156 
1C 3630 DATA 858,808,16.232,84, 
165 , 853 , 105 , 1 , 133 . 853 , 165 , 25 
4, 105,0, 133,8893 
CD 3640 DATA 254,198.8.16,4,169 
, 1 , 133 , 10 , 76 , 49 , 834 , 806 , 104 , 
3,208, 1667 
85 3650 DATA 24B , 162 . 0 . 148 . 4 . 81 
8,838, 148.836,8,808.237,0,0, 
0,0, 1885 
IF 3660 DATA 165.0,133,850,159, 
133,133,851,169.0,133,174.13 
3,193.169,160,2359 
DF 3570 DATA 133,175,133.194,16 
9. 144, 133,852. 169 . 155 , 133 , 25 
3, 160, 0.177,850,8630 
01 3680 DATA 145,174,830,850,80 
8, 8 , 830 , 851 . 830 , 174 , 208 , 8 , 23 
0,175,165,250,8924 
C7 3690 DATA 197,252,208,234,16 
5 , 251 , 197 , 253 , 208 , 88B , 163 , 43 
,133,187.169,155,3050 
BS 3700 DATA 133,198,169,3,133, 
183 , 159 , 0 , 133 , 185 , 160 , 0 , IBS , 
851.155,840,8887 
16 3710 DATA 6.38.810,855,200,8 
08 , 845 , 32 , 807 , 855 , 840 , 251 , 80 
1 ,49.840,4.8635 
OE 3780 DATA 201.56.48,230,41,1 
5 , 1 33 , 1 86 . 76 , 64 . 1 56 , 147 , 17 , 1 
7,73,7B, 1538 
3E 3730 DATA 80,85,84,38,58,69, 
BE , 73 , 67 , 69 , 38 , 78 . B5 , 77 , 65 , 6 
9, 1180 



F8 3740 DATA 82 , 13 , 17 , 67 , 65, 83 , 

61,49,38,47,32,68,73.83,75,6 
1,908 

94 3750 DATA 32.56,32,79,88.38, 

S7,5e,45,32,0,B7,B4.S4,0.0.7 
30 

A2 3750 DATA 0,0,0.0,0,0,0,0 □ 
0 , 0 , 855 , 855 , 855 , 855 , 855 , 1875 

A8 3770 DATA 169,54,133,1,38,23 

4 ,84S, 169,55, 133,1,0.0,0,0,0 
.1886 



Personal File 



o. 

I 



PROGRAM: PERSONAL FILE 



56 5 IFPEEK(49152)O32THENL0AD" 

PERS.MC.8. 1 
62 7 P0KE52 , 100 : POKE56 . 100 : POKE 

25600 . 0 : POKE25601 . 1 Dl : POKE25 

602,0 

C3 10 P" 1 ; PR I NTCHR J (14) . " I BLACK 

1" 

FF 20 AS-"§0:++DATAO":FORJ-1TOL 

EN f A$) :POKE25600+236+J. ASCIM 

IDS < A J. J. 1)) : NEXT 
47 25 A-25856:FORJ-OT020STEP2:B 

-INTIA/256) : P0KE25603«-J . A-B* 

256 . 

Al 26 POKE25603+J+1.B:A-A*1000: 

NEXT 
19 30 GOTOIOOO 

74 90 G0SUB95: IFZS-"N"THEN1000 
66 92 GOTOIOO 

05 95 PRINT" ( SA] RE YOU SURE? " 
7C 96 GETZS i IFZ$< >"Y"ANDZ$< 5"N" 

THEN96 
EF 97 RETURN 
7C 100 SYS50093:SY549299 
AB 105 G05UB150:IFEN=OTHENPRINT 

"IDOWNJSAVED AS DATA FILE";P 

EEK < 25846 ) -48 :GOSUB950 :G0T01 

000 

EF 110 IFEN< >63THEN160 

8F 120 PRINTEMI. "OVERWRITE IT": 

C8 130 GETAS : IFAS< >"Y"ANDAS< >"N 
"THEN 130 

D5 135 GOSUB95: IFZ$-"N"THEN1000 

2B 140 IFAS-"Y"THENSYS49348:G0T 
0105 

5B 145 GOSUB200: IFEN B QTHENPRINT 
"NO MORE FILE SPACE" :G05UB95 
0 : GOTOIOOO 

6C 147 POKE25600+246.FI :GOTO100 

88 150 OPEN15.8, 15: INPUT#15.EN. 

EMS : CLOSE 1 5 ; RETURN 
4F 160 PRINT"ERROR - " , EN . EMS i 

POKE198.0:WA1T198. 1 : GOTOIOOO 

Al 200 FI-4B 

43 202 GOSUB210-. I FEN< >OTHENRETU 
RN 

34 205 FI-Fl4l:lFFI>58THENEN-0: 

RETURN 
7A 207 GOTO202 

OA 210 CLOSES : 0PEN3 . 8.3, " * *DATA 

"+CHR$(FI) : GOSUB 150: RETURN 
06 300 PRINT" [DOWN.SWfHICH FILE 
NUMBER ( 0-9) ":INPUTFI :IFFI<0 
ORFI >9THENPRI NT" [UP.SPC5] ":P 
RINT" |UP3 J " : :GOT0300 
76 310 POKE25846.FI*48:SYS49320 
: G0SUB1 50 : I FEN-OTHENPR I NT "OK 



":GOT0350 
7A 320 IFEN-62THENPRINT" ISNJO S 

UCH FILE":GOSUB950:GOTO1000 
80 330 PRINTEN,EMS:GOSUB950:GOT 

OlOOO 

12 350 SYS5024BiP-PEEK(25602)+l 

:GOSUB950: GOTOIOOO 
BB 500 1 FP >9THENPRINT" ISN) O MOR 

E SPACE " : G0SUB950 : G0T01 000 
8B 507 PRINT"|CLR.SP]AGE":P:"(H 

OME] " ; 

65 508 POKE251 . 0 : POKE252 . 4 : POKE 
25 3 . 0 : POKE254 , 0 i POKE25800 . 5 : 
SYS49510 

14 510 POKE19.1:INPUTAS:POKE19. 

Q:SYS49535 
F2 550 SYS49152:P-P*l 
25 555 GOTOIOOO 
9B 600 GOSUB702: IFE=1THEN1000 
IF 605 P0KE780.P1-1;SYS49916:P- 

P-l : GOTOIOOO 

1C 650 E-0:GOSU8705:IFE-10RP-10 
THEN500 

14 655 POKB780.P1-1:SYS50000:P- 

P+ 1 : GOTOIOOO 
7E 700 G0SUB702: IFE-0THEN715 
B7 701 GOTOIOOO 

35 702 E-0: IFPEEK(25602)-0THENE 

-1 : RETURN 
2B 705 PRINT" [SW1HICH PAGE" ; : IN 

PUTP1 

E4 710 1FP1:»P-10RP1=0THENPRINT" 
NO SUCH PAGE":GOSUB950:E-1 :R 
ETURN 

44 712 RETURN 

7E 715 P1'P1-1 :P0KE7B0,Pl : PRINT 

"[CLR1":SYS49243 
E6 717 P0KE251 ,0:POKE252.4:POKE 

253 . 0 : P0KE254 . 0 : SYS495 1 0 
AF 718 PRINT" IHOME. SP] AGE" : Pl+1 

;"(H0ME|"; 
2F 720 P0KE19.l:INPUTAS:P0KE19. 

0 : SYS49535 : P0KE780 . PI : SYS492 

82:GOTO1000 
BC 800 IFPEEK(25602) -OTHENPRINT 

"(SN)O DATA TO PRI NT" :G0SU89 

50: GOTOIOOO 
4E 810 PRINT" ISSJWITCH ON PRINT 

ER AND PRESS A KEY" :GOSUB950 

5A B20 OPEN4.4.7:SYS4935B:PRINT 

t4 : SYS654B4 1 1FST-0THENPRINT" 

OK" :GOT0840 
4 A B30 PRINT"ERROR ",ST;GOSUB95 

0: GOTOIOOO 
C8 840 SYS65511:G0SUB950:GOTO10 

00 

AD 950 P0KE19B.0:WA1T198.1:RETU 
RN 

71 990 STOP 

67 1000 PRINT"|CLR.RVS0N.9PC6,S 
P.SE.SR.SS.S0.SN.9A.SL.SSPC. 
SD.SA.ST.SA.SSPC.SF.SI .SL.SE 
.SSPCSS.SE.ST.SSPC.SU.SP.SP 
C9 . RVSOFF 1 "i 

96 1020 PRINT" [SSJETUP EACH SCR 
EEN USING ANY KEY EXCEPT 

7A 1030 PRINT" [RVS0N.SR.SE.ST.5 
U.SR.SN.RVSOFFJ . (SU]SE IRV 
SON] >[RVS0FF| TO SET THE STA 
RT OF EACH 

BA 1031 PRINT'TIELD AND THEN TH 
E IRVSON.SFUIRVSOFF] AND [R 
VSON,SF| 7 (RVSOFF] KEYS CAN 

35 1032 PRI NT" BE USED TO TAB UP 
AND DOWN. 

18 1034 PRINT" IRVS0N.SF1 3 | RVSOF 
F] DELETES A LI NE (RIGHT) AND 
( RVSON . SF ) 5 | RVSOFF I I NSERTS 
ONE. 

04 1040 PRINT" ISUISE THE [HVSON 
.SR. SE, ST. SU,SR.SN. RVSOFF] K 

EY TO STORE THE PAGE. 
FA 1050 PRINT" I D0WN2.SF JUNCTION 

S FROM THIS MENU ARE: - , 
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26 1060 PRINT"[DOWN] [RVSON. SF) 
ltRVSOFFl - LOAD DATA. [BVSO 
N,SF|7[RVS0FF] SAVE DATA TO 
DISK 

E8 1065 PRINT" I RVSON . SF 1 2 1 RVSO 

FF) - PRINT DATA IN MEMORY 
6B 1070 PRINT" [RVSON, SF) 31RVSO 

FF1 - SET-UP NEXT PAGE 
F5 1075 PRINT" I RVSON, SF 1 4 (RVSO 

FF) - DELETE A PAGE , [RVSON. 

SF J 6 1RVSOFFI INSERT ONE 
36 1080 PRINT" [RVSON. SF]5 [RVSO 

FF1 - AMEND A PAGE 
07 1095 PRINT" [RVSON . SF 1 8 [RVSO 

FF] - EXIT 
87 1100 PRINT" [DOWN2.SPJRESS TH 

E APPROPRIATE FUNCTION KEY 
33 1110 GETAS : IFAI-" "ORA$< " [Fl ) 

"ORA$>" IF8I "THEN1110 
86 1120 A-ASCi ASJ-132 
2C 1130 0NAGOTO300.500.700.90.8 

00.600,650,990 



PROGRAM i PERS . MC . LDR 



29 1 PRINT" [CLR1THIS PROGRAM W I 

LL SAVE THE FILE PERS.MC" 
AB 2 PRINT'ONTO YOUR OWN DISK." 

00 3 PRINT"ONCE THIS IS DONE TH 

IS LOADER PROGRAM " 
9C . 4 PRINT"IS NO LONGER REQUIRE 

D. " 

CE 10 BL-75:LN-50:SA-49152 

5B 20 FOR L-0 TO BL:CX-0:FOR D- 

0 TO 15: READ A : CX-CX'A : POKE 

SA*LM6+D.A:NEXT D 
77 30 PRINT" . " : :READ A:IF AXCX 
THENPRINT"ERROR IN LINE" ; LN 

+(L* 10) :STOP 
86 40 NEXT L 

75 50 DATA 32.17.192,165,174.14 
1.0,100,165,175,141.1.100.23 
8.2.100.1743 
34 60 DATA 96,173,2.100,24.42.1 
70. 173.0. 100. 157,3. 100. 133.1 
74.232. 1679 
E2 70 DATA 173.1.100.157.3.100. 
133.175. 169.0.133,251,169,4. 
133.252,1953 
BA 80 DATA 169,7.133,254,169.23 
2,133.253.32.60. 192.96. 160,0 
.177.251,2318 
93 90 DATA 145.174.230.174.208. 
2.230. 175, 230. 251, 20B, 2. 230, 
252.165.251.2927 
AF 100 DATA 197,253.208.234.165 
. 252 . 197 . 254 . 208 . 228 . 96 , 24 . 4 
2.170.189.3.2720 
D2 110 DATA 100.133.251.232,189 
,3,100,133.252.24.165.251.10 
5.232,133.253.2556 
90 120 DATA 165.252.105.3.133.2 
54 . 169 . 0 , 133 , 174 . 169 . 4 , 133 , 1 
75.32.60.1961 
02 130 DATA 192.96.24.42,170,18 
9 , 3 . 100 . 1 33 . 174 , 232 . 189 . 3 . 10 
0.133. 175. 1955 
3A 140 DATA 76,40.192.32.177.19 
2.169.0.133.251.169.140,133. 
252. 169, 251,2376 
C9 150 DATA 166.253.164.254,32. 
216.255.96.32. 177, 192,169.0. 
32.213.255.2506 
39 160 DATA 96.169.7,162.240,16 
0. 100.32. 189.255. 169.2. 162,8 
,160,1,1912 
20 170 DATA 32.186.255.96.169,1 
0.162.237.32.181,192.76.150. 
192, 173. 2. 2145 
47 180 DATA 100.133.2,169.255,1 
33 , 253 , 162 . 4 . 32 , 201 , 255 , 230 . 
253.198.2.2382 
43 190 DATA 166.2.16.1.96.165.2 
53.24.42. 170.189,3.100.133.2 



51.232.1843 
22 200 DATA 189.3.100.133,252.1 

62,24.134.100.160,0.169.146. 

133. 254.32. 1991 
AB 210 DATA 210,255,177.251.133 

.101.41.127.32.73.193.133,21 

5,169,146.36.2292 
64 220 DATA 101.16,16,197.254.2 

08,7,169.18.133.254.32.210.2 

55.165.215.2250 
DF 230 DATA 76.41.193.197,254.2 

40 . 247 , 208 . 240 , 32 , 210 . 255 , 20 

0.192,40.208.2833 
CB 240 DATA 209,169,13,32.210.2 

55,165.251.24,105.40.144,2,2 

30.252, 133. 2234 
41 250 DATA 251.198,100.166.100 

,16.178.48.147.133,215.41.63 

.6.215.36.1913 
DE 260 DATA 215.16.2.9.128,144. 

4.166.212.208.4,112.2,9,64.9 

6.1391 

8B 270 DATA 0.0.0.0.0,0.120.173 
.20.3.141.201.100.173.21.3.9 
55 

2F 280 DATA 141.202.100,169.142 

. 141 . 20. 3. 169 . 193. 141 . 21 . 3 . 8 

8,96. 120. 1749 
OB 290 DATA 173,201,100,141.20. 

3,173.202.100.141.21,3.88.96 

.165.197.1824 
9E 300 DATA 201.64.208.6.141.20 

0 . 1 00 . 108 . 201 . 100 . 205 . 200 . 10 

0,240.248.141.2463 
B9 310 DATA 200,100,201,4.240.2 

1 , 201 . 3 . 208 . 3 . 76 . 45 . 194 , 201 . 

5. 208, 1910 
A2 320 DATA 3.76.87,194.201.6,2 

08.223.76.182.194.164.254.32 

.215.193.2308 
5D 330 DATA 32.215.193.177.251. 

201.62. 208 . 247 . 32 , 6 . 194 , 132 , 

254,166.253,2623 
ID 340 DATA 24.32.240.255.76,15 

1. 193, 136.48,1,96.166.253.22 

4.0.208.2103 
B2 350 DATA 21.134.254.138.168. 

24.32.240.255.169.0.133.251. 

169.4.133.2125 
84 360 DATA 252.104.104.76.151. 

193.198.253.160.39,56,165,25 

1,233,40.176.2451 
7F 370 DATA 2.198.252,133.251.9 

6.200,192.40.240.1,96.166.25 

3.224.24,2368 
El 380 DATA 208.11.169.0.168.17 

0.133.253,133,254.76,229,193 

.230.253. 160, 2640 
IE 390 DATA 0,24,165.251,105.40 

, 144 . 2 , 230 . 252 . 133 . 25 1 . 96 . 16 

4.254.32,2143 
FE 400 DATA 6.194.177.251.201.6 

2,208. 247. 240. 143, 162,3, 181 . 

251,157.220.2703 
3B 410 DATA 100.202.16.248,96,1 

62,3.189,220, 100, 149.251.202 

.16.248.96.2298 
AA 420 DATA 24.105.40.144.1.200 

. 96 . 32 . 58 . 194 . 56 . 32 . 240 . 255 . 

134.253.1864 
78 430 DATA 169.0.160.4.224,0.2 

08.7. 133.251 . 132.252.76. 122. 

194,202.2134 
24 440 DATA 32.80.194.202,16.25 

0. 133.251. 132.252.32.80.194. 

133.34.132.2147 
Dl 450 DATA 35.166.253.224.24,2 

40 , 32 , 160 . 39 . 177 . 34 . 145 . 25 1 , 

136.16.249.2181 
59 460 DATA 165.34,164,35.133.2 

51. 132.252.32.80. 194. 133.34. 

132.35,230.2036 
75 470 DATA 253.166.253.224.24. 

208.224. 160.39, 169.32. 145.25 

1.136.16,251.2551 
51 480 DATA 32.69.194,76.151.19 



3.32,58.194.56.32.240.255. 13 
4.253.169.2138 
84 490 DATA 7.133.35.133,252,16 
9, 152, 133,34. 169. 192, 133.251 
.224.24.240,2281 

26 500 DATA 214.160.39,177.34.1 
45 . 251 . 136 , 16 . 249 . 165 . 251 . 16 
4,252.56.233.2542 

42 510 DATA 40.176,1,136.133.25 
1 , 1 32 . 252 . 56 . 233 . 40 . 176 . 1 , 13 
6. 133, 34. 1930 
4C 520 DATA 132.35.230.253.165. 
253 . 201 . 24 . 208 . 215 . 240, 171 . 1 
68.24.42.170.2531 
AB 530 DATA 189.3.100,133.174.2 
32,189.3.100,133.175.232.189 
.3.100, 133.2088 
13 540 DATA 251.232.189.3.100.1 
33.252. 173.0. 100,133.253,173 
,1.100.133.2226 
6B 550 DATA 254.206,2,100,173.2 
, 100, 24 . 42 . 170 . 189 , 3. 100 . 141 
.0.100.1606 
68 560 DATA 232.189,3.100.141.1 
.100.204,2.100.240,8,173.2.1 
00,240.1835 
18 570 DATA 4.32.60.192.96.169. 
0. 141,0. 100. 169. 101 . 141. 1 . 10 
0.96.1402 
6C 580 DATA 72,24.42.170.189.3. 
100.133.253,232.189.3.100. 13 
3,254.173.2070 
9F 590 DATA 1.100.133,175,173,0 
, 100 , 133 . 174 . 24. 105 . 232 . 141 . 
0.100,133.1724 
AE 600 DATA 251.173.1.100.105.3 
.141.1.100.133.252.238,2.100 
.160.0.1760 
DO 610 DATA 198.251.165,251.201 
,255.208,2. 198.252. 198.174. 1 
65. 174.201.255.3148 
8B 620 DATA 208.2.198,175.177.1 
74. 145,251. 165, 174 . 197 . 253 . 2 
08. 226 . 165. 175.2893 
12 630 DATA 197.254,208.220.169 
. 147 , 32 . 210 . 255 . 1 04 . 76 . 130 . 1 
92.162.24, 189.2569 

27 640 DATA 0.100.157.0.140.202 
. 16 . 247. 173. 246 . 100 . 141 . 25 , 1 
40. 169 .26. 1882 

80 650 DATA 133.253.169.140,133 

.254.169,0.133.251.169,101.1 

33.252. 160.0,2450 
ID 660 DATA 177.251.133.174.200 

.177.251.197,174.240.22,133. 

174.200.192.254.2949 
92 670 DATA 208.243.136.32.37.1 

96,32.60.196,173.1.100.197.2 

52.16.222.2101 
IE 6B0 DATA 96.136.240.7.136.32 

.37. 196.32.60. 196. 160.0. 177, 

251.197.1953 
C7 690 DATA 174.208,5.200.192.2 

54 . 208 . 245 . 136 . 1 32 . 175 , 169 , 2 

55. 160,0. 145 .2658 
58 700 DATA 253.200,165.175.145 

. 253 . 200 . 165 . 174 . 145 . 253 . 32 . 

46.196,169.3.2574 
4B 710 DATA 133.175,76,230.195. 

132 . 175 . 177 . 251 , 145 . 253 . 1 36 . 

16.249.230, 175.2748 
BD 720 DATA 24.165.251.101.175. 

144 . 2 . 230 . 252 . 133 , 25 1 . 96 . 24 . 

165.253,101.2367 
99 730 DATA 175.144.2.230,254,1 

33,253.96,162.24.189.0.140.1 

57.0. 100,2059 
31 740 DATA 202.16.247.173.25.1 

40. 141.246. 100.169.26.133.25 

1.169.140.133.2311 
3D 750 DATA 252.169,0.133.253,1 

69.101.133.254.160.0.177.251 

,201.255.240.2748 
6D 760 DATA 23.145.253.200.192. 

244 . 208 . 24 3 . 1 32 . 1 75 . 32 . 46 . 19 

6.32.60. 196.2377 
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29 770 DATA 173.1.100.197.254.1 

6.226.96.132.175.32.48,196,3 

2,60.196.1934 
8F 7B0 DATA 160.1.177.251.133,1 

75.200,177.251 . 164, 175.145.2 

53.136.192.255.2845 
99 790 DATA 208.249.230.175.32, 

60,196.169.2,133.175.32.46,1 

96,76, 128.2107 
BO BOO DATA 0.0.0.0.0.0.0.0,0,0 

.0.0,0.0.0.0,0 
E3 810 PRINT" |CLR .D0WN2 . RVSON] P 

RESS A KEY WHEN READY TO SAV 

E" 

BC 820 GETKS: I FKS- " "THEN820 
C5 830 P0KE43 . 0 : P0KE44 , 192 : POKE 
45.177:P0KE46.196:SAVE "PERS 
.HC",8,1 



Letter Writer 




PROGRAM : LETTER WRITER 



B7- 1 PRINT" ICLR.C41 "CHRS (8) CHRS 
(14) :POKE650.253:DIMA$(60> ,T 
S$(60> 

4F 2 T1S-CHRS(176) :F0RA-1T062:T 

1S-T1S«-CHR$<192) :NEXTA-.T1S-T 

H*CHRI(174) 
DB 3 T2S-CHRSU73) :F0RA»1T062:T 

2S-T2S*CHRS(192> : NEXTA :T2$=T 

2S+CHRSU89) 
77 4 YS-" [D0WN24I " 

14 5 SPS-"ISPC61J M 

63 6 L-1:LN-1:TL-1:NAS-"[SN]0 N 
AME! " : POKE53280 . 0 i P0KE532B 1 . 
0 i G0SUB46 

40 7 IFPEEK(653)-4THEN64 

B4 8 GETK$: IFK$-""THEN7 

1C 9 K-ASC(KS) 

16 10 I FK- 1 3ANDLN< 60THEN25 
A7 11 IFK-20THEN27 

AO 12 IFK-94THEN39 

ED 13 IFK-34THENKS-CHRS(94) :GOT 
018 

7B 14 IFK-147THENAS(LN)-"":G0T0 
171 

8A 15 IFK:U32ANDK<136THEN161 
BE 16 IF{K>31ANDK<94)0R(K>192AN 

DK<219)ORK-160THEN1S 
CF 17 G0T07 

DC 18 I FLN-6QANDLEN( A* (60) ) -6QT 
HEN7 

6D 19 IFLEN(AS(LN))-59THEN22 

7F 20 IFLEN ( A$ ( LN) ) "60THEN7 

89 21 PRINTKS"[CI.LEFT)";:A${LN 

) -AS ( LN ) *KS : GOSUB55 1 G0T07 
ED 22 PRINTKS; : AS ( LN) -AS (LN) -»KS 

; IFLN-60THENPRINT" [CI .LEFT]" 

: :G0T07 

23 23 LN-LN+1 i L-L+T : I FL-21THENG 

0SUB59 :G0T07 
7B 24 PRINTiPRINT5PCU0»LEN(AS ( 

LN) ) ) "[CI .LEFT) ": :GOSUB55:GO 

T07 

72 25 PRINT" " : LN-LN* 1 : L-L + 1 : I F 
L-21THENG0SUB59 :G0T07 

6A 26 PRINT5PC(10-tLEN(A$(LN) ) ) " 
t C I . LEFT! " : ;G0SUB55 :GOT07 

45 27 I FLN- 1 ANDLEN ( AS ( 1 ) ) -OTHEN 
7 

17 28 IFLENIAS(LN) ) -0THEN30 

15 29 PRINT" [LEFT] | LEFT2 , C I . L 
EFT]": : AS (LN) -LEFTS (AS ( LN) .L 
EN(AHLN) )-l) :GOSUB55;GOT07 

27 30 IFL-lANDLENlAS(LN) J-OTHEN 
34 



E6 31 PRINT" " :LN-LN-1 :L-L-1 
9k 32 1FLEN(A$(LN) ) >0THENA$(LNJ 
-LEFTS ( A$ (LN) . LEN ( AS ( LN) ) -1 ) 

53 33 PRINT" [HOME. DOWN ] "LEFTS ( Y 
$.L)SPC<10+LEN(AS(LN) )) " [CI, 
LEFT]"; :G0SUB55:G0T07 

BC 34 LN-LN-1 :TL"TL-1 

F7 35 IFLEN(AS(LN) ) >OTHENA$(LN) 
-LEFTS I AS (LN) . LEN (AS ( LN) )-l) 

BB 36 PRINT" [HOME . DOWN] " : FORA-1 
TO20 : PR I NTSPC (10) SPS : NEXTA 

B9 37 PRINT" [HOME .DOWN] " :FORA=T 
LTOTL+19:PRINTSPC(10)AS(A) :N 
EXTA 

A5 38 PRINT" IH0ME.D0WN2] "SPC( 10 
♦LEN(AS(LN) ) } " [CI .LEFT] "; :G0 
SUB55:G0T07 

37 39 IFLN-1THEN7 

6E 40 1FL-1THEN43 

35 41 PRINT" ":LN=LN-1:L-L-1:PR 
INT" [HOME. DOWN] "LEFTS (Y$ , L) S 
PC<10+LEN(A$(LN> ) ) " [CI .LEFT) 

El 42 G0SUB55-.G0T07 

C4 43 PRINT" [HOME. DOWN] ";F0RA-1 

T020 ; PR I NTSPC (10) SPS i NEXTA 
F2 44 LN-LN-1 :TL-TL-1 : PRINT" [HO 

ME , DOWN | " : FORA-TLTOTL+19 : PRI 

NTSPC(IO) ASIA) : NEXTA 
D6 45 PRINT"|H0ME,DOWN2)"SPC(10 

♦LEN (AS I LN) ) ) "(CI. LEFT) ": :G0 

SUB55 ; G0T07 
7E 46 PRINT"(CLR.SPC5,SL,SE.ST2 
. SE . SR , SSPC . SW, SR. SI . ST. SE. S 

R] 2|SPC3]((SC)) 1988ISPC3.S 

W . SR . SI , ST2 . SE , SN . SSPC . SB . SY 
. SSPC . SA . SD , SA . SM . SSPC . SW . SR 

.SI .SG.SH.ST)"j 
E7 47 PRINT" [SF . SO . SR, SSPC . SY. 
SO , SU . SR . SSPC , SC . SO . SM2 . SO . S 

D, SO. SR. SE)" 

01 48 PRINTSPC(8)T1S 

A2 49 FORA=1T020:PR1NTSPC(8) " [S 

-J"SPC(62)"[S-]":NEXTA 
EO 50 PRINTSPC(8>T2$:PRINTSPC(2 

2) "[C@36] " 
32 51 PRINTSPC(22) " 1RVS0N] >>> ( 

SP,SR,SE.SS2] "CHRS (34) " [SC, 

ST.SR.SL] "CHRS (34) '* [SF.SO.S 

R] [SH.SE.SL.SP] ISS.SCSR.S 

E2.SN] <<< [HOME] " 
8F 52 PRINT"[HOME.DOWN2.SR.SO.S 

W] : [ DOWN . LEFT4 , SC . SO . SL ] ; " 
D8 53 G05UB55 
B8 54 RETURN 

72 55 PRINT" (HOME . DOWN2 , RIGHT4 . 
SPC3 . LEFTS ] 11 LNCHRS ( 1 3 ) " [ Rl GH 
T4 , SPC3 . LEFT 3 ] "LEN ( AS < LN) ) +1 

96 56 PRINT" [HOME] "LEFTSfYS .LI 
C8 57 PRINTSPC(10+LEN(A$(LN) ) ) " 

ICI.LEFT]": 
B4 58 RETURN 
B2 59 IFLN=61THENRETURN 
B7 60 L-20 : PRINT" [HOME. DOWN] " :F 

0RA-1TO20 : PRI NTSPC ( 10) SPS I NE 

XTA 

27 61 PRINT" [HOME, DOWN] ":FORA"T 
L+1TOTL4 20 : PR I NTSPC ( 10) AS ( A) 
: NEXTA :TL-TL»1 

F6 62 PRINT" [HOME . DOWN) "LEFTS (Y 
S,L)SPC(10t-LEN(AS(LNM) "[CI . 
LEFT] "; :GOSUB55 

Bl 63 RETURN 

91 64 PRINT" (CLR]"SPC(26)"[SL.S 

E. ST2.SE.SR] (SW.SR.SI .ST.SE 
.SR] 2 [SH.SE.SL.SP] [SS.SC 
.SR.SE2.SN)" 

B6 65 PRI NTSPC (26) " [CT28. DOWN) " 

01 66 PRINT"[SR,SE.ST.SU.SR.SN] 
MOVES THE CURSOR TO THE NEX 
T LINE. AS DOES FILLING A LI 
NE"j 



DC 67 PRINT" WITH TEXT. [DOWN) " 
C4 68 PR I NT" ( SD . SE . SL . SE , ST . SE ] 
WILL ERASE THE CHARACTER TO 
THE LEFT OF THE CURSOR . " : 
8F 69 PRINT" [SI IF THERE IS NO 
TEXT" 

IF 70 PRINT" [SPC7]ON THE CURREN 
T LINE. IT WILL ERASE THE LA 
ST CHARACTER ON": 

E9 71 PRINT" THE LINE ABOVE. [DO 
WN] H 

34 72 PRINT" [SPIRESSING THE 'UP 
-ARROW' KEY (NEXT TO [SR.SE. 
SS.ST.SO.SR.SE] ) MOVES THE C 
URSOR"; 

58 73 PRINT" TO THE END OF THE" 

57 74 PRINTLINE ABOVE. WITHOUT 
DELETING THE LAST CHARACTER 
. [DOWN] " 

F3 75 PRINT" [ST] YPE YOUR TEXT A 
S NORMAL. [SA] LL CHARACTERS 
ARE ACCEPTED. EXCEPT": 

53 76 PRINT" THE [SCJOMMODORE" 

C4 77 PRINT'KEYBOARD GRAPHICS. 
THE LEFT-ARROW. AND THE UP-A 
RROW. [DOWN] " 

39 78 PRINT" [SYJOU ARE ALLOWED 
A MAXIMUM OF SIXTY LINES OF 
SIXTY CHARACTERS. [DOWN) " 

39 79 PRINTSPC131) " [SY.SO.SU. SR 
] [SO.SP.ST.SI .SO.SN.SS] [SA 
.SR.SE) j ":PRINTSPC(31) " [CT17 
1 " 

CI 80 PRINTSPC( 12) "1 - [SR.SE.S 
T.SU.SR.SN] [ST.SO] (ST.SE.S 
X . ST. SPC3 14 - ISM.SO.SV.SEI 

[ST.SE.SX.ST.SPC7J7 - [SS.SA 

.SV.SE] 1ST.SE.SX.ST.DOWN] " 
39 81 PRINTSPC ( 12) "2 - ISG.SO] 

[ST.SO] (SL.SI -SN.SE.SPC9]5 
- [SC.SO.SP.SY] [ST.SE.SX.ST 

,SPC7]8 - (SL.SO.SA.SD] [ST, 
SE.SX.ST.DOWN] " 
6E B2 PRINTSPC(12) "3 - [SS.SE.S 
TI [ST.SE.SX.ST] [SN.SA.SM.S 
E.SPC616 - [SD,SE,SL.SE,ST,S 
E) [ST. SE. SX . ST. SPC5 ] 9 - [SQ 

.SU.SI ,ST] [SP.SR.SO.SG.DOWN 

] " 

7D 83 PRINTSPCOO) " [SP.SL.SE.SA 

, SS , SE J [ SS . SE . SL . SE . SC . ST ] 
(1-9) [HOME] " 
C6 84 POKE198.0 : WAIT198.1:GETK$ 

:K-VAL(KS) : I FK< 10RK >9THEN84 
27 85 ONKGOT086. 89.114.93.93. 10 

5,138.129,147 
BB 86 G0SUB46:PRINT"IH0ME.D0WN] 

" : FORA-TLTOTL+19 : PR I NTSPC ( 1 0 

)A$(A) ; NEXTA 

34 B7 GOSUB55:GOT07 

EE 88 PR I NT " I HOME . DOWN 1 "LEFTS ( Y 
S.L)SPC(10*LEN(AS(LN) ) ) "[CI . 
LEFT] " ; :G0SUB55 :GOT07 

EF 89 PRINT" (CLR.SG.SO) (ST.SO] 
[SL.SI .SN.SE] M :GOSUB158: IFK 
1S-"N"THEN64 

35 90 PRINT" [CLR . SE] NTER LINE N 
UMBER; : :G0SUB149 

4F 91 LN-N : TL H LN : L- 1 ; 1 FLN >4 OTHE 

NTL-41 :L-LN-40 
3B 92 GOT086 

9D 93 FS-"|SC.SO.SP.SY] [ST.SE. 

SX.ST)";F-0 
FC 94 I FK-4THENFS-" [SM.SO.SV.SE 

I [ST.SE.SX.ST] ";F-1 
B4 95 PRINT" [CLRJ "FS i GOSUB158 : I 

FK1$-"N"THEN64 
EC 96 PR I NT" [ CLR . SE ] NTER LINE N 

UMBER OF START OF BLOCK : " ; : 

GOSUB 149 ; SL-N : PR I NT 
3B 97 PRINT" [SE] NTER LINE NUMBE 

R OF END OF BLOCK : "::GOSU 

B149:EL-N:PRINT 
20 98 PRI NT" (SE INTER NEW START 

LINE NO , FOR BLOCK ; "j.-GOSU 
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B149:NS=N:PRINT 
24 99 IFEL<SLTHENPRINT" [CLR.SEi 

ND LINE LOWER THAN START LIN 

E. IST1RY AGAIN." 
69 100 IFEL':SLTHENFORA-1T02000: 

NEXTA:GOT096 
OF 101 IFEL-SL>60-NSTHENPR1NT" ( 

CLR.SBJLOCK WILL NOT FIT.":F 

0RA-1TO2000: NEXTA :GOT086 
2B 102 FORA=0TOEL-SL:TSS(A)-A$( 

SL*A) : I FF- 1THENAS ( SL+A) - "" 
46 103 NEXTA :FORA-OTOEL-SL: A$ ( N 

S#A)-TSS(A) :TSSIA)-"";NEXTA 
2F 104 GOTOB6 

AC 105 PRINT" ICLR. SD.SE.SL.SE. S 

T.SE) [ST.SE.SX.ST] ":GOSUB15 

8: IFKlS-"N"THEN64 
83 106 PRINT" [CLR.SDIO YOU WISH 
TO DELETE A BLOCK. OR THE E 

NTIRE SHEET? ( [SB] / [SSI > " 
74 107 GETKI$ I IFKl$< >"B"ANDK1$< 

>"S"THEN107 
2B 108 IFK1S-"S"THENRUN 

77 109 PRINT" [CLR. SE] NTER START 

LINE OF BLOCK TO CLEAR: ":: 
GOSUB 149; SL-N : PR I NT 
FF 110 PRINT" ISEI NTER END LINE 
OF BLOCK TO CLEAR t "jjGOSU 
B149:EL-N 

88 111 1 FEL< SLTHENPR I NT" [ CLR . SE 
I ND LINE LOWER THAN START LI 
NE. [ ST ) RY AGAIN. " 

4C — 112 I FEL< SLTHENFORA- 1TO2000 : 

NE XT A : GOTO 109 
8C 113 FORA-SLTOEL:AS(A)«*"";NEX 

TA I GOT086 
95 114 PRINT" ICLR. SS.SE.STJ [ST 
.SE.SX.STJ (SN.SA.SM.SE.HOME 
, DOWN2 . SC ] URRENT NAME : "NAS : 

GOSUB15B: I FK1 $- "N "THEN64 
9E 115 PRINT" (CLR. SC| URRENT NAM 

Ei "NAS 

09 116 PRINT" (DOWN . SE 1 NTER FILE 

NAME FOR TEXT. USMIAXIMUM 1 

6 CHARACTERS) " 
E7 117 PRINT" [DOWN] > 

< "CHRS 1 13) " [UP . RIGHT2 

]": 

87 118 POKE198 . 0 i WA IT19S . 1 : GETK 

S :K-ASC(KS) 
8A 119 IFK-13THEN125 
01 120 IFK-20THEN127 
59 121 IFK>31ANDK<94THEN123 
4D 122 GOTOHB 
B9 123 1FLEN(NMS)-16THEN118 
F9 124 PRINTKS: :NM$-NMS+KS:GOTO 

118 

67 125 NAS a NMS :NMS-" " : I FNAS-""T 

HENNAS-" [SN10 NAME! " 
19 126 GOTOB6 
AO 127 IFLEN(NMS) -0THEN118 
E3 128 PRINT" [LEFT) . [LEFT! " : :NM 

$=LEFT$ ( NM$ , LEN ( NMS 1 -1) :GOTO 

118 

D7 129 PRINT"[CLR.SL.SO.SA.SD] 
[ST. SE. SX. ST.HOME . DOWN2 .SOU 
RRENT NAME t "NAS : GOSUB 158 : IF 
K1S-"N"THEN64 
33 130 PRINT" (CLR. SI INSERT TAPE 
CONTAINING TEXT FILE. AND P 
OSITION FOR [SL.SO.SA.SD1 
Al 131 PRINT" [DOWN. ST1HEN PRESS 
[SR.SE.ST.SU.SR.SNI TO CONT 
INUE." 

59 132 GETKlS:IFKlSOCHRS(13)TH 
EN132 

89 133 PRINT" (CLR. SLIOADING. . ." 
: FORA-1TO2000 : NEXTA 

78 134 IFNAS-"(SNJO NAME! "THENO 
PEN1 . 1 .0;GOTO136 

79 135 OPEN1 . 1 .O.NAS 

65 136 FORA-1TO60: I NPUT* 1 , AS ( A) 

; NEXTA: CLOSE 1 
21 137 L-l:LN-l:TL-l:GOT086 
83 138 PRINT'MCLR.SS.SA.SV.SEl 

(ST. SE. SX . ST. HOME . DOWN 2 , SCJ U 



RRENT NAME: "NAS :GOSUB158 : IF 
K1$="N"THEN64 
B8 139 PRINT" [CLR. SI INSERT TAPE 
AND POSITION FOR [SS.SA.SV. 
SE] . " 

86 140 PRINT" [DOWN. ST] HEN PRESS 
[SR.SE.ST.SU.SR.SNI TO CONT 
INUE. " 

F2 141 GETK1S : I FK1 S< >CHRS ( 13) TH 
EN141 

18 142 PRINT"[CLR,SS|AVING. . .": 

FORA-1TO2O00 : NEXTA 
7A 143 1FNAS-"[SN]0 NAME! "THENO 

PEN1 .1 . l:GOT0145 
Bl 144 OPENl.l.l.NAS 
DE 145 FORA-lTO60:PRINT*l.CHR$( 

34) AS(A)CHRS(34) :NEXTA:CLOSE 

1 

65 146 GOT086 

5B 147 PRINT" [CLR. SQ.SU. SI .ST) 

[SP . SR. SO. SG . SR ,SA. SM] " : GOSU 

B158: IFK1$='N"THEN64 
6A 148 CLR: PRINT" (CLR] "CHR$(9) C 

HRSI142) :POKE53280.12:POKE53 

281. 15 ) END 
4D 149 NS-"" 

OD 150 P0KE198 , 0 -.WAIT198 . 1 :GETK 

IS: I FK 1 S-CHRS (13) ANDLEN ( NS ) > 

0THEN156 
07 151 IFK1S-CHRS(20)THEN154 
ID 152 IFK1S< "0"ORK1S>"9"ORLEN< 

NSJ-2THEN150 
EE 153 NS-NS+K1S:PRINTK1S; :GOTO 

150 

BA 154 IFLEN(NS) >QTHENPRI NT" [ LE 
FT] [LEFT)": :NS-LEFTS(N$.LEN 
(N$)-l> 
A6 155 GOTO150 

D5 156 N-VAL(NS) : IFN< 10RN>60THE 
N150 

13 157 RETURN 

96 158 PRINT" [DOWN, SA] RE YOU SU 

RE? ([SYl/ISN])" 
2D 159 POKE198.0:WAIT198.1:GETK 

1S:IFK1$'. >"Y"ANDK1S«; VN"THEN 

159 

2E 160 RETURN 

1A 161 IFLEN(A$(LN) ) "0THEN7 

72 162 I FLEFTS ( AS (LN) .1)=" "THE 

NAS ( LN) -RI GHTS ( AS (LN) .LEN (AS 

(LN> )-l) :GOT0162 
38 163 I FRIGHTS ( A$ ( LN) . 1) -" "TH 

ENA J (LN) -LEFTS ( AS ( LN) . LEN (AS 

ILNU-l) ;GOT0163 
EF 164 IFLEN ( AS ( LN) ) -60THEN7 

14 165 IFK-135THEN171 

FE 166 TSS (1) -AS(LN) ; AS(LN) 

IFK-134THEN169 
10 167 FORS-1T01NT(60-LEN(TSS<1 

)))/2:A$(LN)-A$(LN)+" " :NEXT 

S 

BA 168 AS(LN) -AS(LN) *TSS(1) :TSS 

(1]-' ,,, :G0T0171 
F9 169 FORS-1T060-LEN(TSS(1>) :A 

${LN)-AS(LN)+" ":NEXTS 
7C 170 A$(LN)-AS(LN)+TSS(1) :TSS 

(1)-"" 

15 171 PRINT" [HOME. DOWN] "LEFTS ( 
YS.L)SPC(IO) SPS" [HOME. DOWN] " 
LEFTS ( Y$ . L) SPC ( 10) AS (LN) "(CI 
.LEFT]"; 

4B 172 GOSUB55 :GOT07 



PROGRAM: LETTER PRINTER 



B7 1 PRINT" (CLR. C5 ] "CHR$(8)CHR$ 
(142) :POKE53280.0:POKE53281. 
0:DIMA$(60) 

12 2 PRINT" [HOME] INSERT THE TAP 
E CONTAINING YOUR TEXT.":PRI 
NT" [DOWN] THEN PRESS RETURN . " 

27 3 POKE198.0:WAIT198.1:GETKS: 
IFKS< >CHRS(13)THEN3 

46 4 PRINT" (CLR)LOADING TEXT... 



PLEASE WAIT. " : FORA-1TQ200Q 
; NEXTA 

17 5 OPEN1 .1.0: FORA«1T060 : INPUT 

#1,AS(A) :NEXTA:CL0SE1 
92 6 PRINT" [CLR) PREPARING TEXT 

FOR PRINTING ." : PRINT" (DOWN) P 

LEASE WAIT." 
7E 7 FORA-1T060:A$(0)-AS(A) : AS ( 

A)-"" 

7E 8 FORB-ITOLEN(ASIO) ) :BS-MIDS 

(A$(0) ,B. 1) 
C6 9 IFBI-CHRS(92)THENAS(A)-A$( 

A) +•■#•' :GOT013 
89 10 IFB$-CHRS(94)THENAS(A) -AS 

(A)+CHRS(34) :GOT013 
BA 11 IFB$-"*"THENAS(A>=A$(A)+C 
HR$(27) +" [SRJ "*CHRS(0) *B$+CH 
RSI 27) + " [SR] "+CHRS ( 3) :GOT013 

94 12 A$(A) -AS(A) +BS 
3E 13 NEXTB.A 

60 14 PRINT" [CLRJPRINTING TEXT. 

CI 15 OPENl ,4.7:PRINT»1 .CHR$(27 
> "S"CHR$<27) "B"CHRS(27J "3"CH 
R$( 18) : 

FA 16 FORA-1T060:PRINT#1 . " [SPC1 

0]"AS(A) : NEXTA 
59 17 PR]NT»1:CL0SE1:PRINT"[CLR 

] FINISHED.": END 



Basic Workshop 



PROGRAM : BAS-WRKSHP , LDR 



2C 1 PR I NT" [ CLR . DOWN ) TH I S PROGR 

AM WILL SAVE A COPY OF" 
06 2 PRINT"BASIC WORKSHOP ON YO 

UR OWN DISK OR TAPE" 
3D 3 PRINT'ONCE THIS IS DONE YO 

U SHOULD LOAD BASIC" 
C4 4 PRINT"WORKSHOP AS DETAILED 

IN THE MAGAZINE, " 
4E 5 PRINT'THIS LOADER PROGRAM 

WILL NO LONGER BE" 
1C 6 PRINT"NEEDED . " 

62 7 PRINT'IF USING TAPE MAKE S 
URE THAT YOU HAVE" 

51 8 PRI NT"CHANGED THE .8.1 TO 

.1.1 AS DETAILED IN" 
Al 9 PRINT'THE REM STATEMENTS . " 

30 10 BL-127:LN-50:SA=49152 

5B 20 FOR L=0 TO BL:CX-0:FOR D- 

0 TO 15 ; READ A:CX-CX+A:POKE 

SA*L'16+D.A:NEXT D 
77 30 PRINT" . " :READ A:IF A>'CX 
THENPRI NT"ERROR IN LINE" : LN 

+(L*10) :ST0P 
86 40 NEXT L 

E6 50 DATA 76.0.194.234.234.234 

. 234 . 234 . 234 . 234 . 234. 234. 234 

.32, 159.255.3056 
65 60 DATA 165.197.240.57.201.4 

,208.6.238.134,2.76. 128. 192. 

201 .5. 2054 
34 70 DATA 208.23.162,0.173.134 

.2.157.0.216. 157.0,217.157.0 

.21B, 1824 

63 80 DATA 157.0.219.232.208.24 
1 , 76 , 1 28 . 192 . 201 . 6 . 208 . 6 . 238 
.33.208.2353 

1A 90 DATA 76. 12B. 192. 201. 3. 208 
,6.238.32.208.76.128.192.173 
.141,2.2004 

B5 100 DATA 41.1.201.1.208,3.76 
.13.192,173,141.2.74.74.41.1 
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A6 110 DATA 201.1-208.38.165.19 

7.201 . 10, 208.7. 162.0. 169.3,7 

6,0.1646 
86 120 DATA 193 . 20 1 . 28 . 208 . 24 . 1 

62,4. 169.5.76,0. 193,234.234. 

234.234.2199 
CD 130 DATA 162.128,160.0.136.2 

08 . 253 . 202 . 208 . 250 . 76 . 49 . 234 

.201.20,208.2495 
OB 140 DATA 7.162,10.169.5.76.0 

, 193.201. 18.208.7, 162. 16. 169 

.9.1412 

A9 150 DATA 76.0.193,201.14.208 
.7.162.26.169.4.76.0.193.201 
.26 . 1556 

AB 160 DATA 208.7.162,31.169.4, 
76 . 0 . 1 93 . 201 . 29 , 208 . 7 . 162 . 36 
. 169.1662 

ID 170 DATA 5.76.0.193.201.33.2 
08.7.162.42. 169.5,76.0. 193,2 
01. 1571 

88 180 DATA 42.208.7.162.48.169 
. 4 . 76 , 0 , 193, 201 . 38 , 208 .7.162 
,53.1578 

77 190 DATA 169.4.76.0.193.201, 
41,208.7.162.58.169.4.76.0.1 
93. 1561 

60 200 DATA 201.62,208.31.162.6 

3 . 169 . 4 . 76 . 0 . 193 . 76 . 49 . 234 . 2 

34.234,1996 
A4 210 DATA 133.198,160.0.189.6 

3 . 193 , 153 . 1 19 .2 . 232 . 200 . 201 . 

42. 208. 244.2337 
65 220 DATA 76 . 1 2B . 192 . 201 . 17 . 2 

08.7,162.68. 169.6,76.0. 193,2 

01 .13. 1717 
95 230 DATA 208.7,162.75.169,4. 

76 . (1 . 1 93 . 20 1 . 22 . 208 . 7 . 1 62 . 80 

. 169. 1743 
83 240 DATA 4.76.0.193.201.31.2 

08. 195. 162.85. 169.6.76.0,193 

,65. 1664 

29 250 DATA 83.67,42,71,79,83.8 
5 , 66 . 42 . 67 . 76 . 79 . 83 . 69 . 42 . 76 
. 1110 

29 260 DATA 79.65.68.34.36.34.4 
4.56.42.80.69.69.75,42.71,79 
.943 

91 270 DATA 84.79.42.67.72.82.3 
6 . 40 . 42 . 73 . 78. 80 . 85 , 84 , 42 . 76 
.1062 

D8 280 DATA 73.83.84.42.79.80,6 
9 . 78 . 42 . 80 , 79 . 73 . 69 . 42 , 76 . 79 
.1130 

02 290 DATA 65.68,42.82.69.84.8 
5 , 82 . 78 . 42 . B3 . 65 . 86 , 69 , 42 , 68 
.1110 

AO 300 DATA 65,84.65.42.86.69.8 
2 . 73 . 70 . 89 . 42 . 78 . 69 . 87 . 42 . 25 
5.1298 

E4 310 DATA 0.255.0.255.0.255.0 
. 255 . 158 . 66 . 65 . 83 . 73 . 67 . 32 . 8 
7, 1651 

01 320 DATA 79.82.75.83.72.79,8 
0.32,65,67, 84.73,86.69. 13.67 
.1105 

4B 330 DATA 79 . BO . 99 . 92 . 73 . 71 . 7 
2 . 84 . 32 . 40 . 49 . 57 , 56 .56 . 41 . 32 
.993 

F6 340 DATA 66.82.73.65.78.32.7 
1.82.65.72.65.77.46.42.79.76 
.1071 

9F 350 DATA 68.42.42.169,0.141. 

32. 208, 141.33.208, 162.0. 160. 

0,136. 1542 
68 360 DATA 234.234.234.208.250 

. 202 . 208 . 247 . 32 . 159 . 255 . 165 , 

197.240.236,96,3197 
31 370 DATA 162.0.189.168.193.3 

2 . 210 , 255 . 232 . 201 . 46 , 206 . 245 

.120.162.26.2449 
23 380 DATA 160.194.142,20.3.14 

0.21 .3.88.96.165,197.201.57, 

208, 13, 170B 



5A 390 DATA 173,141.2,74.41.2-2 
01 .2. 208.3.76. 226.252. 173. 14 
1 .2. 1717 

99 400 DATA 74.74.41.1,201.1.20 

8. 110, 165. 197.201 .43.208.7. 1 

62.92,1785 
89 410 DATA 169.3.76.0.193.201. 

40.208,96.169,3,133.198.162. 

0. 189. 1840 
F5 420 DATA 222.193.157.119,2.2 

32 . 201 . 42 . 208 . 245 .160.3. 200 . 

177.43.208.2412 
ED 430 DATA 251.152.56.101.43.1 

60,0. 145.43. 133.45,200, 165,4 

4.145.43.1726 
AF 440 DATA 133.46.160,0.177.45 

.133.47.200.177.45. 170.5.47. 

240.9, 1634 
8A 450 DATA 134.46.165.47.133.4 

5. 136 .240.235.24, 165.45. 105. 

2, 133.45 . 1700 
28 460 DATA 133.47.133,49.165.4 

6. 105.0. 133.46.133.48.133.50 

.76.128.1425 
BB 470 DATA 192.234.234.234.234 

.234,76. 13. 192. 173. 141 ,2.74. 

74.41 . I .2149 
D9 480 DATA 201.1.208.242,165.1 

97 , 20 1 . 54 . 208 . 236 . 162 . 0 . 1 89 . 

0.4,157.2225 
83 490 DATA 0.200.189.0.5.157.0 

. 201 . 189 . 0 . 6 , 157 . 0 . 202 , 189 . 0 

.1495 

12 500 DATA 7.157.0.203.189.0.2 

1 6 . 157 . 0 . 204 . 1 B9 . 0 . 217 , 157 , 0 

.205. 1901 
Dl 510 DATA 189.0.218.157.0,206 

. 189 . 0 . 21 9 . 157 . 0 . 207 . 232 . 224 

.0.208.2206 
C8 520 DATA 203 . 162 . 0 . 1B9 . 0 . 1 96 

.157.0.4.189,0.197. 157,0,5.1 

89 . 1648 

44 530 DATA 0.198.157.0,6.189.0 
. 199 . 157 . 0 . 7 . 232 . 224 . 0 . 208 . 2 
27. 1804 

20 540 DATA 240.66.32.227.193.1 

6 2. 0. L 89.0. 200. 157.0.4. 189.0 

,201.1860 
BF 550 DATA 157.0.5.189.0.202.1 

57 . 0 . 6 , 1 89 , 0 . 203 , 157 . 0 . 7 . 189 

. 1461 

71 560 DATA 0.204.157,0.216.189 

. 0. 205 . 157 . 0 . 217 . 189 . 0 . 206 . 1 

57,0,1897 
16 570 DATA 218.189.0,207.157,0 

. 219 , 232 . 224 . 0 . 208 . 203 . 76 . 1 2 

1,195.234.2483 
FB 580 DATA 234.234,234.234.162 

.0. 169. 15. 157.0.216. 157.0.21 

7. 157,0,2186 
DF 590 DATA 218.157.0.219.232.2 

08.239 . 173.134.2.133.250.173 

.32.208.133.2511 
71 600 DATA 251.173,33.208,133. 

252.76, IB. 195. 165.250. 141. 13 

4.2.165.251.2447 
7C 610 DATA 141.32.208.165,252. 

141. 33,208.76. 13. 192.0.0,0,0 

.0. 1461 

55 620 DATA 0 . 0 . 0 . 0 . 0 . 0 . 0 , 0 , 0'. 0 

.0.0.0.0.0.255.255 
9D 630 DATA 0.255,0.255,0,255,0 

. 255 . 0 . 255 . 0 . 255 . 0 . 255 . 0 , 255 

.2040 

27 640 DATA 0.255.0.255.0.255.0 
. 255 . 0 , 255 . 0 . 255 . 0 , 255 . 0 . 255 
,2040 

E9 650 DATA 0.255.0.255.0,255.0 
. 255 . 0 . 255 . 0 . 255 . 0 . 255 . 0 , 255 
.2040 

33 660 DATA 0.255,0.255.0.255.0 
. 255 . 0 . 255 . 0 . 255 . 0 . 255 . 0 , 255 
.2040 

C5 670 DATA 0.255.0.255.0.255.0 
. 255 . 0, 255 . 0 . 255 . 0 . 255 . 0 . 255 



.2040 

EB 680 DATA 0.255.0.255.0.255.0 
. 255 . 0 . 255 . 0 . 255 , 0 , 255 . 243 . 6 
6,2094 

3F 690 DATA 32.32.32.32.32.32.3 
2,2.1.19.9.3.32.23.15.18,346 

03 700 DATA 11,19.8.15.16.32.8. 

5 , 1 2 . 16 . 19 . 8 . 5 . 5 , 20 . 46 . 245 
31 710 DATA 32.32.32.32,32.32.3 

2,32.32.32.32.32.32.32.32.45 

.525 

D8 720 DATA 45.45.45.45.45.45.4 
5 , 45 . 45 . 45 , 45 , 45 . 45 . 45 , 45 , 45 
,720 

54 730 DATA 45,45.45,45.45.45.4 
5 . 45 . 32 . 32 . 32 . 32 . 32 . 32 , 32, 32 
,616 

53 740 DATA 32.32.32.32,32.32,3 
2,32,32.32.32,32.32.32.32.32 
,512 

E5 750 DATA 32.32.32.32.32.32.3 
2.32.32.32.32.32.32,32,32,32 
.512 

AO 760 DATA 32.32.32.32.32.32.3 
2.32.3.20.18,12,32.43.32. 1,4 
17 

AF 770 DATA 32.61.32.1,19.3.32. 
32.32. 32.32.32.32.32. 32.32.4 
66 

D9 780 DATA 32.32.32,42.3.15.12 
, 15.21 , 18. 19,42.32. 32,32.32. 
411 

70 790 DATA 3.20.18,12.32.43.32 
.2.32.61.32.7.15.19.21,2.351 

C4 600 DATA 32.32.32.32.32.32.3 
2.32.32.32.32.32.32,32,32.32 
.512 

C5 BIO DATA 32.32.32.32.32.32.3 
2.32.3.20. 18. 12.32.43.32.3.4 
19 

E4 820 DATA 32.61,32.3.12.15.19 
. 5 . 32 , 32 , 32 . 32 . 32 . 32 . 32 . 32 . 4 
35 

EO 830 DATA 32.32.6.49.32.61.32 
.3.21.18, 19.15.18,32.32.32.4 
34 

E7 840 DATA 3.20.18,12.32.43.32 
.4.32.61,32.12,15.1,4.34.355 

45 850 DATA 36.34.44,56.32.32.3 
2.32,32.32.6.51.32.61.32.20. 
564 

63 860 DATA 5.24.20.32.32.32.32 
.32.3,20.18. 12.32,43.32.5,37 
4 

30 870 DATA 32,61.32.16.5.5,11. 
32,32.32.32.32.32,32,32,32.4 
50 

DD 880 DATA 32.32.6.53,32.61.32 
.19.3.18.5,5,14.32.32.32.408 

50 690 DATA 3.20,18.12.32,43,32 
, 7 . 32 . 6 1 . 32 . 7 . 15 . 20 . 15 . 32 . 38 
1 

60 900 DATA 32.32.32.32.32.32.3 
2.32.32.32.6.55.32.61.32.2.5 
08 

9B 910 DATA 15.16,4.5.18.32.32. 
32.3.20.18.12.32.43.32.8.324 

1C 920 DATA 32 . 61 , 32 . 3 . B . 18 . 36 . 
40.32.32,32.32.32.32,32.32.4 
86 

46 930 DATA 32.32.32.32.32,32.3 
2.32.32.32.32,32.32,32,32.32 
,512 

10 940 DATA 3.20.18.12.32.43.32 
.9.32.61.32.9.14.16.21.20.37 
4 

82 950 DATA 32.32.32,32.32.32.3 
2. 19. 8. 9. 6. 20. 12. 15. 3, 11 .327 

91 960 DATA 32.61,32.16.1.21,19 
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.5,3,20.18,12,32,43,32,12,35 
9 

B4 97(1 DATA 32.61,32,12.9.19.20 
. 32 , 32 . 32 . 32 . 32 , 32 . 32 . 32 , 32 . 
•173 

BO 9B0 DATA 32.32.32.32.32.32.3 
2 . 32 . 32 . 32 . 32 . 32. 32 . 32 . 32 . 32 
.512 

4A 990 DATA 3. 20. IB. 12.32.43.32 
. 15.32.61.32. 15. 16.5. 14.32.3 
B2 

8C 1000 DATA 32.32,32.32.32,32, 
32 . 32 . 32 . 32 . 32 . 32 . 32 . 32 . 32 . 3 
2,512 

56 1010 DATA 32.32,32.32.32.32. 
32,32.3.20. 18.12,32.43.32. 16 
,432 

96 1020 DATA 32.61.32.16.15.11. 
5,32.32,32.32,32.32.32,32,32 
,460 

FF 1030 DATA 32,32.32.32.32,32. 
32 . 32 . 32 . 32 . 32 . 32 . 32 . 32 . 32 . 3 
2.512 

DB 1040 DATA 3.20,18.12,32.43.3 
2,17.32.61.32,12.15, 1.4,32,3 
66 

BB 1050 DATA 32,32,32.32,32,32. 
32 . 32 . 32 . 32 . 32 . 32 . 32 . 32 . 32 . 3 
2.512 

57 1060 DATA 32.32.32.32.32.32. 
32. 32.3,20. 18, 12,32.43.32. IB 

9B"~ 1070 DATA 32.61.32.18.5.20.2 
1.18.14.32.32.32.32.32.32.32 
,445 

29 1080 DATA 32.32.32.32.32.32. 
32 , 32 . 32 . 32 , 32 , 32 . 32 . 32 . 32 , 3 
2.512 

11 1090 DATA 3,20.18.12,32,43.3 
2. 19.32.61. 32. 19. 1 .22.5. 32,3 
83 

C5 1100 DATA 32.32.32.32.32.32. 
32.32.32.32.32.32,32.32,32,3 
2.512 

74 1110 DATA 32.32.32,32,32.32. 
32.32.3.20. IB. 12.32.43. 32. 20 
,436 

99 1120 DATA 32.61.32.4.1.20.1. 
32,32, 32,32,32.32.32.32,32.4 
39 

5B 1130 DATA 32.32,32.32.32.32. 
32 . 32 . 32 , 32 , 32 . 32 , 32 . 32 , 32 . 3 
2.512 

71 1140 DATA 3.20.18.12,32.43.3 
2.22.32.61.32.22.5.18.9.6.36 

7 

F5 1150 DATA 25.32.32.32.32.32. 
32.32.32.32,32,32.32.32,32.3 
2.505 

AA 1160 DATA 32.32.32.32.32.32. 
32 . 32 . 3 . 20 . 1 8, 1 2 , 32 . 43 . 32 , 43 
,459 

9A 1170 DATA 32.61,32,15.12.4,3 
2 . 32 . 32 . 32 . 32 . 32 . 32 . 32 . 32 . 32 
.476 

95 1180 DATA 32.32.32.32.32.32. 
32 . 32 , 32 , 32 . 32 . 32 , 32 . 32 . 32 . 3 
2.512 

6B 1190 DATA 3.20,18,12,32,43,3 
2.45.32.61 .32. 14.5 . 23.32. 32. 
436 

21 1200 DATA 32.32.32.32.32.32. 
32.32.32,32,32,32,32,32.32,3 
2.512 

62 1210 DATA 32.32.32.32.32,32. 
32.32,3.20.18 12.32,43.32.30 
,446 

E8 1220 DATA 32.61.32.8.5.12.16 
.19.8.5.5.20,32.32.32.32.351 

C7 1230 DATA 32.32.32.32.32.32. 
32 . 32 , 32 . 32 . 32 . 32 , 32 , 32 . 32 , 3 
2,512 

54 1240 DATA 3.20.18.12.32.43,3 
2 . 3 . 2 . 1 3, 32 , 43 , 32 . 31 . 32 , 6 1 . 4 



09 

87 1250 DATA 32.18.5.19.5.20.32 
. 32 . 32 . 32 . 32 . 32 . 32 . 32 . 32 , 32 . 
419 

E5 1260 DATA 32.32.32.32,32.32. 
32.32. 32.32.32,32.32,32,32.3 
2,512 

EF 1270 DATA 32.32.32.32.32.32. 
32.32.32.32.32.32.32,32,32.3 
2.512 

26 1280 DATA 32,32,32.32,32.32, 
32.32.32.32.32.32.32.32.32.3 
2,512 

IE 1290 DATA 40.3.41.32.49.57.5 
6 . 56 , 32 . 2 . 18, 9 . 1 , 14 . 32 . 7 . 449 

31 1300 DATA 18.1,8.1.13.32,32. 
32.32.32.32.32,32,32,32,32,3 
93 

C4 1310 DATA 32,32,32.32,32.32. 
32 . 32 . 32 . 32 . 32 . 32 . 32 . 32 . 32 . 3 
2,512 

4D 1320 DATA 32.32.32.32.32.32. 
32.32.32,32.32.32,32.32.32.0 
,460 

67 1330 REM GET READY TO SAV 

E PROG •* 
B2 1340 PRINT:PRlNT"|RVSON|PRF.S 

S ANY KEY TO SAVE BASIC WORK 

SHOP" 

45 1350 GETKS: IFK$-" "THEN1350 
F3 1360 POKE43 . 0 : POKE44 . I92:F'OK 

E45 . 0 : POKE46 . 200 I SAVE"BAS 1 C 

WORKSHOP" ,8.1 
60 1370 REM CHANGE .B.l TO ,1.1 
IF USING A CASSETTE 



Head for Home 



o. 

I 



PROGRAM : HEAD FOR HDHE 



10 REM LUDO BY KIRK MCMILLAN 
50 POKEB5305, 119t COLOR1 , ie,B 
30 P0KE65301,57:PPINT"tCLEAR3C0 
143COOB3CC 43CRU50N]":5Y5445B 
40 PRINT"CDOWN]CRIGHT3CRV50FF]C 
YELLOW3C s W3ts IUs R3Cs E3ts C 
ICs OHs M] Cs SJCs 03ts FHs T 
3Cs Wits Alts Rlts E], ts M3ts 
03ts E3ts RKs A3Cs K3Cs II, Cs 

N3Cs E3Cs U3 Cs Z3Cs EH s flJCs 

LHS A3Cs N3Cs D3" 
SO CCJL0R1, 16:CHAR,4 ( 20, "Cs FHs 

D3Cs R3 Cs THs HICs El Cs CH 
s OHs rOts rOCs OHs LOts OHs 

RHs El 16 Cs OHs R3 ts Pits 
Llts U3Cs S3/4":COLORl , 10 
GO CHAR, 11, 1G, "BY ts K3 IRK ts n 
3Cts M3ILLAN":CQL0R1 , 14:CHAR,7, 
lB,"ts S10UND BY ts B3ERNIE Cs 
rOCts M31LLAN" 

70 CHAR, 15,22, "CUHITElCs L3Cs 0 
Its Alts D3ts IHs NHs 63":POK 
E812.0 

BO F-RNDC-TnTp0KE45 t 5S:P0KE46, 
S4 : CLR 

90 DLOAC'L. BASIC" 



PRDGRAH [ L.BASIC 



S SYS 101S.CLR 

10 F0RF-BlSrDBS7: READMS: POKEF . G 
EC(nS) 

20 NEXT : DATA IB, AS , DO , 65 , Dl , 55 , D 
£ , B5 , 03 



30 DATABS, OS, 60, AB, 00,86,03,85, 
DO , C9 , BB, 10 , 01 , 60 , EB , EO , 04 , DO, F 
4, A2, 01,86, 03,60 

40 DATAA2 , 00 , A9 , 6B , SD , SD , OS , A9 , 
AO , 9D , 90 

50 DATAOD.EB, EO.CB.DO, Fl ,60, A2, 
00 , A9 , 6B 

60 DATA9D , 5B , OA , A9 , AO , 9D , 5B , OE , 
EB,E0,CB,D0,F1,G0 

70 AA-0 : AB-0 : AC-0 s AD-0 1 AE-O: AF- 
0:AG-0:H-0: I -O : M-0 : U-0 i P-0 : N-0 : 
R-B39:TRAP1G30 

BO CSC0)-"CGREEN3":Csr 1)-"CRE03 
CSC2)-"C PURPLE! ";CS(3)-"Cc 73 
" : PLSCOJ- "FIRST" : PLSC 1 )- "SECOND 

« 

90 PLS(2)-"TKIRD ,, :PLSC3>-"AND L 
AST" 

100 SS-"Cc PHc O3CD0WN3CLEFT3C 

LEFTHc OHs -HUP!" 

110 AS(0)-"CRUS0N3Cc P3CRUSOFF3 

Cs A3CDOWN3CLEFT3CLEFT3CRUSON3C 

c DICRUSOFFlCs B3CUP3" 

ISO AS(13-"Cs CICs D3C 0QWN3C LEF 

THLEFTHs Ells FHUP1" 

130 ASCe)-"Cs CJCs D1CDOWNDCLEF 

TlCLEFTHs G3Cs H1CUPD" 

140 ASf3J-"Cc RICc W3CD0WN3CLEF 

T3CLEFT3CRUSON3CC D3CRUSOFF3CC 

HHUP1 " 

150 DS(1)-" CDOWNlt LEFT! CLEFT 
3CLEFT3 Cs 01 C DOWN] C LEFT H LEFT 
]C LEFT! 

160 DSCB)-"Cs Q] CDOUNHLEFTH 
LEFT3C LEFT3 C DOWN] C LEFT ]C LEFT 
3CLEFT3 Cs 03" 

170 DSr3J-"Cs Q] CD0UN3CLEFTH 

LEFT1CLEFT] Cs Q] C DOUN] CLEFT3C 

LEFT3CLEFT3 ts 01" 

180 DSC45-"ts 03 ts 03CDOWN3CLE 

FTHLEFT1 CLEFT] C 00UN1 C LEFT 3C 

LEFT3CLEFT3Cs 03 Cs 03" 

190 D$(S3-"ts Q3 ts QHDOUNHLE 

FTltLEFTlCLEFTl ts 01 C DOWN] CLE 

FT3CLEFT3CLEFT3CS Q3 Cs 03" 

BOO DS(6)-"C3 03 ts 03t00WN]CLE 

FTJCLEFTHLEFTHs Q] Cs QHDOUN 

]C LEFT! CLEFT3C LEFT] Cs 0] Cs Q] " 

£10 DIMA-;C3, 3 J ,B>.(.3, 3) ,C*C3,3), 

D!if3,33,f17iC3 1 33,S - -it3),EXt3,3),F 

*C3,3) 

220 DIMG"-iC3,33 ,HrsC3,3J , It 1 3, 33, 
J%C3, 35, K*t3, 33^^3,33,^*0, 33 
230 VOLS: IFPEEKC8123-2S5THEN330 
240 F0RT-137ST013BB:P0KET,0:NEX 
T 

2S0 S0UND1 , BSO, 15: CHAR , 3 , 22, "CI 
BPlCs W10ULD YOU LIKE INSTRUCTI 
ONS? [ YELL0U3 C 1303C s Y3/Cs N3tl 
323 ": POKER ,0 

260 GETNS: I FNS< > " Y "ANDNSO "N "TH 
EN260 

270 CDLQRl,10:SYS1585:PRINT"tCL 

EAR3C0083 " 

BBO IFNS-"N"THEN340 

B90 COLORO, 10,4:C0L0R4, 11,5 

300 5Y5155E:5Y51646:SY51B770 

310 C0L0R1.5:CHAR,B,B4,"PRESS ' 

RETURN ' TO CONTlNUEt HOME] " : PDKE 

R.O 

3B0 GETKEYNS: IFNSOCHRS( 13JTHEN 
3B0 

330 SCNCLR 

340 C0L0R4,3,5:C0L0R0,B:SY5155B 
:SYS1GB1 

3S0 CHAR ,3,6, "tc 21H0W MANY PLA 
YERS PLEASE C2-43 tl301tc 01C13 
BltLEFT]" : POKER, 0 

360 GETKEYNS i I FNS< "B"0RNS> "4"TH 
EN 3 GO : ELSEPR I NTNS | NU-UAL CNS ) | U- 
4-NU:NU-NU-l 

370 PRINT: FORF-OTDNU: 2-3406*40" 
F 

380 PRINT'tc 71tRIGHT]tRIGHT]tR 
IGHT]PLAYER"F*1"IS":P0KE3,2AND2 
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55 :PDKE4.Z/55S; POKES, PEEKC3J 

390 P0KE6, CZ-10243/556 

400 5YS1380O:D0: XSCF 3-XSC F) +CHR 

SCPEEKCZJ+643:Z-2+l;L00PUNTILPE 

EKCZ3-35:NEXT 

410 FORF-OTONU 

450 KCF)-INTCRNOC13*tNU+133: IFS 

*CKCF3 3-1THEN450:ELSES*CKCF3)-1 

:NEXT:PRINT"CD0UN3" 

430 FORZ-0TONU:N5CZ3-XSCKCZ)>:S 

*(Z3-0:U*(Z3-8:NEXT;FORF-OTONU: 

IFF-STHENPRINT"CD0UN3" ; 
440 PRINTCSCFV C RUSONHUPJ "SS 

" C DOWN 3 C RUSOFF 3 - "LEFTSCNBCF3+ 

",63, :NEXT:PRINT 
450 PRINT"CRI6HT3CDOWN3CGREEN]M 
DUES ARE MADE BY PRESSING THE N 
UMBER" 

4G0 PRINT "CRIGHT]MATCHING YOUR 
COUNTER , OR 'P' TO PASS" : POKER, 
0 

470 CHAR , S , 53, "C RED] PRESS C1303 

RETURNC1353 TD START" 

480 GETNS; I FNSO CHRSC 133 THEN4B0 

: ELSE5CNCLR : COLORO , 5: C0L0R4 , S , B 

:SYS171G 

490 DO:FORL-OTONU 

500 P0KE50B , M-iCL , 01 ; PDKE509 . M"-;C 
L.IJ 

S10 P0KES10,n*CL,23:P0XE511,MT:( 
L.33 

520 5YSB19: IFPEEKC5133-1B0THEN1 
OHO 

530 CHAR, 33,7, "CBLACK3Cc Q]Cc □ 
He Q3Cc QKc Q]Cc Q3CLEFT3CLEF 
T3CLEFT3 CLEFT 3CLEFT 3 CLEFT ]CRUSD 
N]"*NSCL3 

S40 S0UND1 ,B90, 10 : CHAR , 35, 9 , CSC 
L 3 + "C RUSON] "*SS+ "C RUSOFFJ " t A-0: 
C-A:E-A:D-1 

5S0 DOiCDLORl , 15 , 5 : F0RF-1T0 INTC 
RN0C1 3»153+15:J-INTCRND(13*63*1 
5G0 IFRNDC 13< . 11THENJ-B 
S70 SOUNDS ,B50, 3 

5B0 IFD>40RU-1THENJ-INTCRND(13- 
53*1 

590 CHAR,34,17,DSCJ3:U0L1:50UND 
2.B50.2 

600 UOLB ;NEXT : C-C* J : 1FJ<>BTHENE 
XIT 

BIO SYSB31 : E-PEEKC33 : IFE-1THENE 

XIT 

G20 D-D* 1 : CHAR, 31 55 , "C BLACK] 
CRUS0N36C RUSOFF] " : S0UND1 , 950 , 10 
t F0RF-1TD50; NEXT : SDUND1 , 950 , 10 i 
LOOP 

B30 PRINTCSCL3 

640 I FD> 10RE-1THENS60: ELSEP0KE5 
15, C 

650 P0KE3 , 1 : SVS15211 ; E-PEEKC 3) 
GEO IFE-1THENS0UND1 ,S1G, 10: SOUN 

Dl ,565, 10: F0RF-1T0400: NEXT: GOTO 
10B0 

G70 CHAR ,33, 14 , "Z 130]Cc Q3C1323 
CBLACK3CC Q]CRUS0N]":S0UND1,B90 

GBO F0RJ-1TDD.-CHAR, 35, 14, "CRU50 
FFD C BLACK3C c Q] C RUSON] " ; G-0 
690 I FC> -GTHENA-B : C-C-6 : G- 1 : ELS 
EA-C 

700 GETKEYAS: I FAS- "P "THEN 1070 : E 

LSE I F A$< " 1 "DRAS> "4 "THEN770 

710 0-UALtAS3:H-M?;tL,D-t J 

750 IFH-0ANDAOGANDG-0THEN770 

730 M-15035:N-SS:P-H: IFP>40THEN 

M-1517BiP-P-40:N-B 

740 U-n+N-L*5»(P-13: IFH-0THEN7B 

0 

750 I-3113+40-PEEK(U*l 3*PEEXCU) 
760 I-PEEKCI): I F I -BGANDD-10R I -7 
0AND0-2ORI -75AND0-3OR1 -1 16AND0- 
4THEN7B0 

770 SDUND1 , 100, 10:G0T0700 

7B0 IFH-0ANDG-1THENA-1 

790 CHAR, 35, 14, "CRUSQN3C8LACK] " 



*AB: 0-0-1 

BOO I FH> -4 1ANDH+A< > 45THEN770 

BIO IFH»A>4STHEN770 

B50 mCL,03-rmL.03+A 

B30 ns-CS(L3*ASCD3:F-FPECO) 

B40 POKEA^iCL , 03 , C'iCL, 03 : POKEB'ct 

L,0) 1 D5:CL.DJ : POKEE!sCL. 1 03,6*CL,0 

3 

BSO P0KEF*CL,03 , D*(L, 0) : POKEH*C 
L.03 .JSsCL.D^PDKElSsCL.QJ.DfcCL.O 
3 

8B0 P0KEK^CL,03 ,N'<CL,03 ; POKEL^C 
L.03 ,D*£L,03:C0L0R1 ,9,G:U-15516 
+B-L*2-0 

B70 CHAR,PEEKCU3,PEEKCU*-13, "CRU 
S0FF3Cc Q]Cc D]C DOWN] CLEFT] CLEF 
T3Cc OHc □] " 

880 FDRF-H+lTDHiCL , 03 : IFF>44THE 
N1550 

B90 n-15035:P-F-l:N-55: IFP>39TH 

ENn-1517B:P-P-40:N-B 

SOO U-M+N*L'2«P 

910 AA-3072+40-PEEKCU+13+PEEKCU 

3 

950 AB-AA-1054:AC-PEEK(AA3:AD-P 
EEKCAB) 

930 AE-PEEKC AA*1 3 ; AF-PEEKC AA*40 
3 : AG-PEEK(AA*413 : CHAR , PEEKC U3 , P 
EEKCU+13 ,MS 

940 S0UND1,750,5:F0RT-1T0100:NE 
XT 

950 IFF-meL,0)THEN9B0 
9B0 POKEAA , AC : POKEAB , AD : POKEAA* 
1 , AE : POKEAB+1 , AD: PDKEAA*40 , AF : P 
DKEAB+40, AD 

970 POKEAA+41 , AG: PDKEAB+41 . AD 
9B0 NEXTF 

990 A*CL,03-AA: B*CL,03-AB 
1000 C*CL,03-AC:0*a,0J-AD 
1010 E'lCL,0)-AA»l:F # -iCL,03-AB+l 
1050 G"lCL,D)-AE: J^CL , 03 -AF : NTiC L 
, D3-AG 

1030 H'4(L.03-AA+40: I^CL , 03-AB*4 
0 

1040 K^t L . 03 -AA+41 :L*CL,03-AB*4 
1 

10S0 IFAG-66DRAG-700RAG-750RAG- 
11GTHENG05UB1330 

10G0 PDKE5960+J.1G;PDKE3984+J,1 
07: NEXT 

1070 CHAR, 33, 14, "C RUSOFF JC BLACK 

3CC Q]Cc D]Cc Q3":CHAR, 32, 55, "C 

c 03Cc 0]Cc Q]Cc 0]Cc Q]Cc □]" 

10B0 POKER, 0;NEXTL 

1090 K--1 : FORT-QTONU; K"K-(U?t( T J 

<43 

1100 NEXT: IFK<NUTHENLDDP 

1110 F0RF-ST015 :CHAR , 35, F , "C BLA 

CK3CRUS0N3 CRUSOFF]" 

1150 NEXT:CHAR, 34 , B , "CRUSONJGAfl 

ECDOWNJ CLEFT] CLEFT X LEFT3C LEFT3 

C130J0UERC1353" 

1130 CHAR, 33, 12, "PPESSC DDWNJCLE 

FT 3 CLEFT] CLEFT J C LEFT JANYC DOWN] t 

LEFT] CLEFT] CLEFT] KEY " 

1140 POKER , 0: GETKEYAS i SCNCLR •. PL 

SCNU3-PLSC33 : FORF-OTONU :G-F*S 

1150 PRINTCSCUI^CF3 3 ; : FORT-GTOG+ 

4 

1150 PRINT"CRUSON] 

CRUS 

0FF3"; :NEXT:PRINT"CUP3CUP]CUP]C 
RIGHT] " ; ASCF3; 

1170 BS-PLSCF3+" HOME WAS "+NSC 
U"i C F 3 D 

11B0 CHAR, 19-LENCBSJ/2,G*1, "CRU 
SON]"+BS 

1190 CHAR,6,G+3, "CRU50NJY0U UER 
E SENT BACK"-STRSCS^(uriCF3 3 3*" 
TIMES' " : PRINT "C DDUIN] " : NEXT 
1500 I FNU< 3THENSYSB70 ; IFNU<5THE 
NSYSB55 

1510 P0KE1339,PEEKC504B):CHAR,9 
.51, "C130]C0NGRATULATIDNS "»NSC 
W*4(03 3 



1550 FDRF-15B54T013194STEP5 
1530 A-PEEKCFl*PEEKCF+l)-556 
1540 B-PEEKCF+S3*PEEKCF*-31*556 
1550 C-PEEKCF+4):S0UND1,A,C:S0U 
ND5 , B . C 

12G0 NEXT:KEY1,CHRSC1363:KEY2.C 

HRSC1373 

1270 MS-CHRSC343 

1280 CHAR, 3,23, "C 1353 C GREEN] "+M 

S*"F1"+M$*" TO PLAY AGAIN Cc 

7]"+MS-< "F2"-MS*" TO EXIT" 

1290 POKER ,0: GETKEYAS 

1300 0NINSTRC"CF73CF53",AS3+1G0 

T01290, 1310, 1320 

1310 PDKE815,2SS: RUN70 

1320 SYS65526 

1330 X-N-i(L,D3:Y-D^CL,03 

1340 IFX-640RX-970RX-1090RH>40T 

HENRETURN 

1350 IFX-56THENX-0:ELSEIFX-70IH 
ENX-1:ELSEIFX-72IHENX-5:ELSEIFX 
-11GTHENX-3 

13G0 I FY-53THENY-0: ELSEIFY-50TH 

ENY-1 ; ELSEIFY-GBTHENY"5 : ELSE I FY 

-46THENY-3 

1370 IFY-LTHENRETURN 

13B0 FORF-700TD200STEP-100:SQUN 

01 , F , S: NEXT : SOUND 1 , 50 , 50 : SOUND I 

,959,5 

13S0 U-1521B*8»Y+2*X:S^CY3-S^CY 
3*1 

1400 CHAR.PEEKCUJ.PEEKCU+D.CSC 
Y3+ASCX3 

1410 A'<CL,03-A^CY,X3:A';CY,X3-0 
1450 B-iCL,03-B^.CY,X3: BTjCY,X3-0 
1430 CrttL,03-C^CY,X3:CllCY 1 X)-0 
1440 D?:CL,03-D!iCY 1 XJ:D-<CY,X3-0 
1450 E^tL,03-E?:tY,X3:E^CY,X3-0 
14G0 F'-iCL.OJ-F^CY.XS^^tY.XJ-O 
1470 G^CL,03-GSCY,X3:G'<CY,X3-0 
14B0 H^CL,Q3-H%CY.X):H%tY,X)-0 
1490 I*CL, 03-1*0 Y.X3: I"-:CY,X3-a 
1500 J*0L,O3-j;iCY,X3:J*CY,X3-O 
1510 K-iCL,03-K'-iCY,X3 ! K , -iCY,X3-0 
1550 L*CL,D)-LXtY,XJ:L:iCY,X3-0 
1530 NriCL,D3-N'-s(Y,X3:N-sCY,X3-0 
1540 M^CY, X3-0:GOTO333O 
1550 U-I554B*8-L*2*0 
1555 PQKE50B,m: s CL,0) l POKESOS.M* 
tL.13 

155S P0KE210 ( M*CL,23:POKE511,n* 
CL.33 

1557 SYSB19: I FPEEK 0 5133 < 180THEN 
1590 

15B0 K-O.-DO 

1570 IFW<(K)<>BTHENK-K+1:ELSEEX 
IT 

1SB0 L0aP:LTiCK3-L 

1590 F0RZ-400T0700STEP15:SDUND1 
.2,4 

1600 F0RT-300T0ZSTEPZ:S0UND1,T, 

2 

1G10 NEXTT,Z:U-U-1 

1650 S0UND5.850,5:S0UND1 ,850,5: 
S0UND1 , 900 , B : CHAR , PEEK C V 3 , PEEK C 
U+l),nS:GOT09BO 

1630 TRAP1630: RESUME 



Sprite Library 




PROGRAH : GEOM . D I SPLAY 



85 10 REM- 



31 



50 REM- SPRITE LIRBARY OISPL 
AY • 
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IB 30 REM- 



GEOMETRIC 



CB 



7E 



5A 



40 REM- — — — " — — — - — - 
• ••• 

50 PDKES5,0:POKE56,40-.X-X + 1; 
1FX-ITHENLDAD "GEOMETRIC" ,8. 1 



50 U-5324B: PR I NT "CCLS3 CBLU] E 
26CDK9CR3CREUDF7 TO STOP AN 
I HAT I ON " 

2C 70 POKEU+21 , 15:P0KEU+23, 10; P 
OKEU+29 , IE i P0KEU+3S , 1 i POKEU+ 

33,I<POKEU+39.0 
40 80 POKEU-40,0: P0KEU*41 ,0:POK 
EU*4E, 0: POKEU, 70.-PDKEU+1 , 150 
:P0KEV*2, 120: POKEU+3. 150 
90 POKEU*4,170:POKEU*5 1 150:P 
OKEU+6 , 248 : POKEU+7 , 150 
100 INPUT"CHOt13CCD3START SPR 
ITE" ; 5 : INPUT "END SPR1TE";E:I 
NPUT"DELAY" ; 0 

110 FORSP-STOE:FORT-0TOD:NEX 
T: PRINT "CHOMr'TABC 53) "SPRITE 

NO . - " ; SP ; POKE2040 , SP 
120 POKE204l,5P:POKE2042,SP: 
POKE2043,SP:NEXT:GETKS: IFKS- 
"CF73"THEN100 
130 GOTO110 



5A 



BD 



4C 



87 



3C 



PRDGRAM : GEOMETRIC DATA 



AF 10 REM— — — — — — — — — — — ■ 

EE E0 REM* SPRITES LIRBARY 

30 30 REM" 

■ 

DA 40 REM- GEOMETRIC SPRITES 

CE 50 REM- BASIC DATA LDADER 
■ 

99 60 REM" SPRITE5 DESIGNED BY 

74 70 REM- MIKE BENN 

C5 80 REM— — — — — — — — 

DD 90 BL-E55 :LN-130 ;SA-I024 
0 

89 100 FOR L-0 TO BL:CX-0:FOR D 

-0 TO 15 
4F 110 READ A: IF A> E55THENPR I NT 

"NUMBER TO LARGE "; LN+ C L*10) : 

STOP 

9B 1E0 CX-CX *A: POKE SA*L»16*D,A 

;NEXT D 

D9 130 READ A; IF AXCX THENPRIN 
T" ERROR IN LINE"iLN-tCL-10):S 
TOP 

37 140 NEXTL:POKE43,0:POKE44,40 

; P0KE4S , 0 : POKE46 , 56 
B4 150 5AUE"GE0riETRIC" , B, 1 : END 
EF 1G0 REM — — — — — — — — — — — 

3B 170 REM TAPE USERS LULL NEED 
TO CHANGE DEVICE N 
UMBEP FROM B TO 1 
FB 1B0 REM— — — — — — — — 

2D 190 DATA 0,0,0,0,0.0,0,0.0,0 

,0,0,0,0,0,0,0 
IB 200 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
01 210 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
71 220 DATA 0,8,0,0,0,0,0,0,0,0 

,0,0,0,0,0,21,29 

75 E30 DATA 0,0,0,0,0,0,0,0,0,0 
,0,0,0.0,0,0.0 

63 E40 DATA 0,0.0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
79 250 DATA 0.0.0.0.0.0.0.0,0,0 



,0,0,0,0,8,0,8 
7E 2B0 DATA 0,28,0,0,0,0,0,0,0, 

0,0,0,0,0,0,251,279 
5C E70 DATA 0.0,0.0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
4A 2S0 DATA 0.0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
41 290 DATA 0,0,0,0,0,0,0,0,8,0 

,0,20.0.0,34,0,62 
7E 300 DATA 0,65,0,0,128,128,1, 

E55,19E,0,0,0,0, 0,0,20, 789 
A4 310 DATA 0,0,0,0,0,0,0,0.0,0 

,0,0,0,0,0.0,0 
92 320 DATA 0,0,0,0,0,0,0,0.0,0 

.0,0.0, 0,0, B.8 
BS 330 DATA 0,0,20,0,0,34,0.0,6 

5,0,0,128, IEB, 1 ,0,64,440 
BB 340 DATA E,0,3E, 4, 0,16,8,0,8 

, 16, 0,4, 63, 255, E54, 21 , G83 
CB 350 DATA 3E , 0, 0 , 48 , 0 , 0 . 40 , 0, 

0 , 36 . 0 , 0 , 34 , 0 , 0 , 33 , 223 
B4 360 DATA 0,0,32,128,0,32,64, 

0, 32 , 3E , 0 , 32 , 1G , 0, 32 , 8, 408 
98 370 DATA 0 , 3E . 16 . 0 , 32 . 32 , 0 . 3 

2, 64 , 0, 32 , IEB , 0, 33 , 0, 0, 401 
80 380 DATA 34,0,0,36,0,0,40,0, 

0,48,0,0,32,0.0,20,210 
09 390 DATA 63,255.254,16,0,4,8 

,0,8,4,0, 16, E,0,3S, 1,663 
E7 400 DATA 0,64.0,128, IEB, 0,6S 

.0,0. 34, 0,0, 20. 0,0, 8, 447 
CB 410 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0.0,0.0 
BE 420 DATA 0,0,0,0,0.0,0,0,0,0 

,0,0.0,0,0,132.132 
74 430 DATA 0,0,2,0,0,5,0,0,10, 

0,0, IB, 0,0, 34, 0,70 
C5 440 DATA 0,66,0,0,130,0,1,2, 

0,2,2,0.4,2,0,8,217 
AF 450 DATA 2,0,4,2,0,2,2,0,1,2 

.0,0,130,0,0,66,211 
BE 460 DATA 0,0,34,0,0,16,0,0,1 

0,0,0,6,0,0,2,0,70 
04 470 DATA 0,0,0,0,0,0,0,0.0,0 

,0,0,0,0.0,0,0 
7E 4B0 DATA 0,0,0,0,0,0,0,0,0,0 

,0.0.0,0.0,8,8 
7B 490 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
EE 500 DATA 0,0,0,0,0,0,0,0,0,0 

,0.0,0,0,0,242,242 
6C S10 DATA 0,0,0,0.0,0,0,0,0,0 

,0,0,0.0,0,0,0 
F3 520 DATA 0,0,0,0,0,0,0,0,0,6 

E, 0,0, 34,0, 0,34, 130 
13 530 DATA 0,0,34,0,0,62,0,0,0 

,0,0,0,0,0.0,0,96 
13 540 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0, 131 , 131 
BB SSO DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 
EA 560 DATA 0,0,0, 255, 1E8 , 0, IEB 

, 1EB.0, 1E8, 1EB.0, 1E8, 1E8,0,1 
EB, 1E79 

BE 570 DATA IEB, 0, IEB, IEB, 0, IEB 
,128,0, 12B, 128,0,255, IEB, 0.0 
.0, 1279 

FB 5B0 DATA 0,0,0,0,0,0,0,0.0,0 

,0,0.0,0,0,65,65 
F4 530 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0.3,255.224.2,484 
E0 600 DATA 0,32,2,0,32,2.0.32, 

2,0,32,2,0,3E,E,0, 170 
A9 610 DATA 3S.E, 0.32, 2,0,32,2, 

0 , 32 , 2 , 0 , 32 , 2 , 0 , 32 , 202 
E9 620 DATA 3,255,EE4,0 1 0,0,0.0 

.0.0,0.0,0,0.0,132,614 
Dl 630 DATA 0,0,0,0,0,0.15,255, 

E4B,8.0,B,B,0,B,a.55B 
09 640 DATA 0,8,8,0,8,8.0,8,8,0 

,8,B,O,B,B,0,B0 
07 650 DATA B.B.O.B.B, 0,8,8, 0,8 

,8,0.B.B,0,B ( BB 
4F 660 DATA 8 , 0 . 8 , B , 0 , B , 15 , 25S , 
249 ,0,0,0,0,0,0, 225 , 775 



08 670 DATA 0,0.0.0,1,132.0,14, 
64,0, 112,64,7, 128,64,4,650 

DE GB0 DATA 0,64,4,0,64,4,0,64, 

4,0,64,4,0,64,4,0,340 
A3 690 DATA 64,4,0,64,4,0,64,4, 

0 , 64 , 4 , O , 64 , 4 , 0 , 64 , 404 
AA 700 DATA 3, 128,64,0, US, 64.0 

, 14,64,0, 1 , 13E, 0,0,0, 93,735 
3B 710 DATA 0,0,0,0,3,0,0,5,0,0 

.9.0,0,17,0.0,34 
BE 720 DATA 33 , 0 , O , 65 . 0 , 1 , 1E9 , 0 

,1.1,0,1,1,0,1,1,E34 
90 730 DATA 0,1,1,0,1,1,0,1,129 

,0,0,65,0,0,33,0,232 
8F 740 DATA 0,17,0,0,9.0,0,5,0, 

0,3,0,0,0,0,245,279 
CB 750 DATA 0,4,0.0,12,0,0,20,0 

,0,20, 0,0, £0,0,0,76 
E0 760 DATA 36,0,0,36,0,0.36,0, 

0,68,0,0,68,0,0.68, 31E 
BB 770 DATA 0,0,66,0,0,68,0,0,3 

6.0,0,36.0,0.36.0,244 

09 780 DATA 0,20,0,0,20,0,0,20, 
0.0, 12.0.0,4.0, 14,90 

06 730 DATA 0,8,0,0,8,0,0, B, 0,0 

,8,0,0,8.0,0.40 
EC BOO DATA B , 0 , 0 , B , 0 , 0 , B , 0 , O, 8 

,0,0, 8, 0,0, 8. 48 
52 BIO DATA 0,0, B, 0,0,8, 0,0,8,0 

,0,B,0,0.B,0,40 
90 B20 DATA 0 , B , 0 . 0 , 8 , 0 . 0 , B . 0 , 0 

,8.0,0,8,0,215.255 
ED 830 DATA 0.32,0.0,48,0.0,40, 

0.0,40,0,0,40,0,0,200 
4B 840 DATA 36,0,0,35,0,0,36,0, 

0,34,0,0,34,0.0,34,210 
BD BS0 DATA 0,0.34,0,0,34,0.0.3 

6,0,0,36,0,0,36,0,176 
83 B60 DATA 0,40,0,0,40,0,0,40. 

0,0,48,0,0,32,0.14,214 
30 870 DATA 0,0,0,0,36,0,0,80,0 

,0.72.0,0,68,0,0.316 
23 BB0 DATA 66,0,0,65,0,0,64,19 

2. 0 , 64 , 64 , 0 , 64 , 64 , 0 , 64 , 707 
39 890 DATA 64,0,64,64,0,64,64, 

0 , 64 , 192 , 0 , 65 . 0 , 0 . 66 , 0 , 707 
5C 900 DATA 0 , 68 , 0 , 0 , 72 , 0 , O , B0 , 

0,0,96,0,0,0.0,53,369 
59 910 DATA 0,0,0,3, IEB, 0,2, 112 

,0,2. 14,0,2, 1,224, E, 490 
E7 320 DATA 0,32.2,0,32,2,0,32, 

2,0,32,2,0.32,2,0.170 
96 930 DATA 32,2.0,32,2,0,32,2, 

0 , 32 , 2 , 0 , 32 , 2 , 0 , 32 , 202 
B2 940 DATA 2,1,132,2,14,0.2,11 

2,0,3, 128,0.0,0,0,62,518 
0A 950 DATA 0,0,0,0,0,0.15,255, 

246,8,0,8,8,0,8,6,558 
4B 960 DATA 0,8,8,0,8,8,0,8,9,0 

,8,8, O.B.B, 0.80 
46 370 DATA B , 8 , 0 . 8 , B , 0 . 8 , B, O , B 

,8.0, 8.8,0, 8, 88 
0A 380 DATA 8,0,8,8,0,8,15,255, 

248,0,0.0,0,0,0,22,572 
44 330 DATA 0,0,0,0,0,0,0,0,0,0 

, 0,0, 31,255. 252, IB, S54 
14 1000 DATA 0,4, 16, 0,4. B, 0,8, 8 

, 0, 8, B, 0,8, 4,0. 76 
E2 1010 DATA 16,4,0,15,4,0,16,2 

.0,32,2,0,32,2,0,32.158 
CB 1020 DATA 3,255.224,0,0,0,0, 

0,0,0,0,0,0,0,0. 253 , 735 
59 1030 DATA 0,0,0,0.0,0,0,0,0, 

0,0,0,0,0,0,0,0 
1A 1040 DATA 0.0.31,255,252,15, 

0.4.8,0,8,4,0,16.2,0,596 
6A 1050 DATA 32.1,0.64,0,128,12 

8 , 0 , 65 , 0 , 0 . 127 , 0 , 0 , 0 , 0 . 545 
2B 1060 DATA 0.0,0,0,0,0,0,0,0, 

0,0,0,0,0,0, 162.162 
Al 1070 DATA 0.0,0.0,0.0,0.0.0, 

0,0,0,0,0,0,0,0 
EF 1080 DATA 0,0,0,0,0,0.0.0,53 

,255,254. 16,0.4, 14,0,606 
DF 1090 DATA S6 . 1 . 193 , 192 , 0. 62 . 
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0,0.0.0,0,0.0,0,0,0, 504 
BF 1100 DOTH 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0, 170. 170 
89 1110 DftTft 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 
3A 1180 OftTft 0.0,0,0,0,0,0,0,0, 

0,0,0,0,0,63,855,318 
03 1130 DATA 854,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0,854 
53 1140 DftTft 0,0,0,0,0,0,0,0,0, 

0,0,0.0,0,0.155,156 
□1 1150 DftTft 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 

38 1160 DftTft 0,0,0,0,0,0,0,0,0, 
68,0, 1, 183, 198, 14,0,468 

ftF 1170 DftTft 56,16,0,4,63,855,8 
54, 0,0, 0,0, 0,0,0, 0,0, B48 

B9 11B0 DftTft 0,0.0,0.0.0,0,0,0. 
0,0,0,0,0,0,858,858 

39 1190 DftTft 0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0 

43 1800 DftTft 0,0,0,855,188,0,18 

B, 188, 1 ,0,64,8,0, 38,4,0,748 
85 1810 DftTft 16,8,0,8.16,0,4,38 

,0,8,63, 855 , 854 .0,0,0, 658 
03 1880 DftTft 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,145,145 
95 1830 DftTft 0,0,0,0,0,0,0,0,0, 

0,0,0,3, 855 . 884 , 8 , 484 
4F 1840 DftTft 0,38.8,0.38,8,0,38 

,4,0.16.4,0,16,4,0,144 
AF-- 1850 DftTft 16, 8, 0,B, 8,0, 8, 8,0 

,8, 16,0,4, 16,0.4, 104 
BE 1860 DftTft 31,855,858.0,0,0,0 

,0,0.0.0,0,0,0.0,76,614 
37 1870 DftTft 0,0,0,0,0,0.15,855 

, 84B ,B,0,B,B,0,B,B, SSB 
FE 18B0 DftTft 0.B, 8, 0,8, 8, 0,8, 8, 

0,B,B,O,B,8,O,S0 
B4 1890 DftTft B, 8, 0,8, B, 0,8,8,0, 

B.B.O.B.B.O.B.BB 
F8 1300 DftTft 8,0,8,8,0,8,15,855 

, 84B ,0,0,0,0,0,0, 883 , 773 
SB 1310 DftTft 0.0.0,1,188,0,1,56 

.0,1,7,0,8,0,884,8,486 
GD 1380 DftTft 0,88,8,0,4,4,0,4,4 

,0,B,4,0.B,8,0,74 
DO 1330 DftTft 8,8,0,16,8,0,16,16 

,0, 16, 16,0, 38,88,0,38, 196 
34 1340 DftTft 3,188,38,0,118,64, 

0. 14,64,0, 1 , 188,0,0,0, 174,78 

4 

4fl 1350 DftTft 0,8,0,0,80,0,0.34, 
0 , 0 , 65 , 0 , 0 , 1 88 . 1 88 , 1 . 384 

75 1350 DftTft 0,64,8.0,38,4,0.16 
,B,0,B, 16,0,4.38,0, 186 

03 1370 DftTft 8,16,0,4,8,0,8,4,0 

,16,8.0,38, 1,0, 64, 1S7 
B5 1380 DftTft 0, 188, 18B, 0,65, 0,0 

, 34 , 0 , 0 , 80 , 0 , 0 , B , 0 , 144 , 587 
DO 1390 DftTft 0,0,0,0,0,0,0,0,0, 

0,0,0,0,8,0,0,8 
47 1400 DftTft 54,0,0,65,0,1,188, 

1 98 , 6 , 0 , 4B , 84 , O , 1 8 , 38 , 0 . 568 
El 1410 DOTO 8,84,0,18,6,0,48,1 

, 188 , 198 , 0 . 65 . 0 , 0 , 54 , 0 , 538 
85 1480 DftTft 0,8,0,0,0,0,0,0,0, 

0,0,0,0,0,0, 134 , 148 
CB 1430 DftTft 0,0,0,0,0,0,0,0,0, 

0.0,0.0,0,0.0.0 
CE 1440 DftTft 0,0,0,0,0,0,8,0,0, 

847, 188,7,0, 118,56,0,558 
SC 1450 DftTft 14,7,0,118,0,847,1 

58,0,8,0,0,0,0,0,0,0,516 
56 1460 DftTft 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,43,43 

10 1470 DftTft 0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0.0 

11 14B0 DftTft 0,0,0,0,0,0,0,0,0, 
0,0,0.0,0,63,855,318 

76 1490 DftTft 554,0,0,0,0.0.0,0, 
0,0,0.0,0,0.0.0,554 

Oft 1500 DftTft 0,0,0,0,0,0,0,0,0, 

0.0,0,0,0.0,5,5 
7B 1510 DftTft 0,0,0,0,0,0.0,0,0, 



0,0.0,0.0,0,0,0 
BE 1580 DftTft 0,0.0,0.0.0,B,0,0, 

847, IEB.7,0, 1 18, S6, 0,558 
0C 1530 DftTft 14,7,0,118.0,847,1 

88,0.8,0,0,0,0,0,0,0,516 
51 1540 DftTft 0,0,0,0,0,0,0,0,0, 

0,0,0.0,0.0,6,6 
C7 1550 DftTft 0,0,0,0,0,0,0,0,0, 

0,0,0.0,8,0,0,8 
BS 1560 DftTft 54,0,0,65,0,1,188, 
198 , 6 , 0 , 48 , 84 , O . 1 8 , 38 , 0 , 565 
E4 1570 DftTft 5,54,0,15,6,0,48.1 

, 15B , 195 , 0 , 65 , 0 . 0 , 54 , 0 , 535 
86 1580 DftTft 0,8,0,0,0,0,0,0,0, 

0,0,0,0,0,0,553,561 
B9 1590 DftTft 0,8,0.0,80,0,0.34, 

0,0. B5, 0.O, 188, 188, 1 , 384 
34 16O0 DftTft 0,64,8,0,38,4.0,16 

,B, 0,8, 16,0,4,38,0, 186 
7B 1610 DftTft 8,16,0.4,8,0,8,4,0 

,16,8,0,38,1,0,64,157 
5E 1680 DftTft 0,158,158,0,65.0,0 

, 34 , 0 , O , 50 , 0 , O , 8 , 0 , 550 , 633 
41 1630 DftTft 0,8,0,0,50,0,0,50, 

0,0, 34,0,0,34,0,0, 116 
49 1640 DftTft 65,0,0,65,0,0,158. 

158, 1,0, 64, 1,0, 64 ,5, 0,518 
B7 16S0 DftTft 38,1,0.64,1,0,64.0 

, 1 8B , 1 88 , O , 65 , 0 , 0 , 65 , 0 , S48 
4B 1660 DftTft 0,34,0,0,34,0,0,50 

,0.O,50,0,0,B,0,535,34B 
BS 1670 DftTft 0,8,0.0,8.0,0,8.0, 

0,50,0,0,50,0,0,64 
DD 1680 DftTft 50,0,0,34,0,0,34,0 
, 0 , 34 , 0 , 0 , 34 , O , 0 , 65 , 88 1 

05 1690 DftTft 0,0,34.0.0.34,0.0, 
34 , O , O , 34 , O , 0 , 80 , O , 156 

58 1700 DftTft 0,80,0,0,80,0,0,8, 

0.0, B, 0,0,8,0, 858,316 
DB 1710 DftTft 0,8,0,3.8.0,0,8,0. 

0,6,0,0,8,0,0,40 
71 1780 DftTft B,0, 0,8,0, 0,8, 0,0, 

B,0,0,B,0,0,B,4B 
D7 1730 DftTft 0,0,B,0,0,8,0, 0,8, 

0,0. B, 0,0,8,0,40 
E5 1740 DftTft 0,8, 0,0, B, 0,0, B,0, 

0,8,0,0.8,0, 148, 188 
15 1750 DftTft 0,8,0, 0.B, 0,0, 8,0, 

0,80.0,0,80,0,0,64 
AO 1760 DftTft 80,0,0,34,0,0,34,0 

,0,34,0,0,34.0,0,65,881 
95 1770 DftTft 0,0.34,0,0,34,0,0, 

34 , 0 , 0 , 34 , 0 , 0 , 50 , 0 , 1 56 
36 17B0 DftTft 0,80,0, 0,50,0, 0.B, 

0,0,B,0,0,B,0, 19, B3 
El 1790 DftTft 0,9,0,0.50,0.0,50, 

0,0,34,0,0,34,0,0,115 

06 1B00 DftTft 65,0.0,65,0.0,158, 
15B,1,0,64,1,0,64,S,0,51B 

DC 1810 DftTft 35,1,0,64,1.0,64,0 
, 158, 15B, 0,65,0,0,65,0,54b 

86 1B50 DftTft 0,34,0,0,34,0,0,50 
,0,0, 50, 0,0, 8,0, 550 . 366 

CB 1B30 DftTft 0,6,0,0,50,0.0,34, 

0,0,65,0,0, 158, 158. 1 , 384 
D3 1B40 DftTft 0,64,5,0,35,4,0,16 

,B,0,B, 16,0,4,35,0, 186 
ES 1850 DftTft 5,16,0,4,8.0,8,4,0 

, 16,5,0,35, 1 ,0,64, 1S7 
67 I860 DftTft 0,158,158,0,65,0,0 

,34, 0,0, 50, 0,0, 8, 0,7, 390 
B6 1B70 DftTft 0.0,0,0,0,0.0,0.0. 

0,0,0,0,0.0,0.0 
FC 1BB0 DftTft 0,0,0,0,0,0,0,0,0, 

0,0.0,0.0.0,8.8 
Fft 1B90 DftTft 0.0,0,0,0,0.0,0,0. 

0,0,0,0.0,0,0.0 
60 1900 DftTft 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0, 101 , 101 
EE 1910 DftTft 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 
BD 1950 DftTft 0,0,0,0.0,0,0,0,0, 

8,0,0,80,0.0,34,68 

87 1930 DftTft 0,0,34.0,0,80,0,0, 
88,0,0,0,0,0,0,0,88 



CB 1940 DftTft 0,0,0,0,0,0,0,0,0, 

0,0,0,0.0,0,0,0 
36 1950 DftTft 0,0,0,0,0.0,0,0,0, 

0,0,0,0,0,0,0,0 
SE 1960 DftTft B, 0,0. 80, 0,0,34,0, 

0,65,0,0, 1SB, 15B, 1,0,384 
ft8 1970 DftTft 64,1,0,54.0.188,18 

B,0, 158. 15B, 0.65, 0,0, 34, 0,74 

0 

CE 13B0 DftTft 0,65,0,0,0.0,0,0.0 

,0,0,0.0,0.0.551 ,8B3 
BF 1990 DftTft 0,0, 0, 0, 0,0, Oj 8,0, 

0,50, 0,0, 34,0, 0, 65 
D5 5000 DftTft 65,0,0,158,158,1,0 

,64,5,0,35,4,0, 16,8,0,448 
Dft 5010 DftTft B.B.O.B, 4,0, 16,4,0 

, 16,5,0,35, 1 .0,64, 163 
70 5050 DftTft I ,0,64.0, 1SB, 18B.0 

, 187,0,0,0,0,0,0,0,846,694 

60 8030 DftTft 0,8,0,0,54,0,0,65, 
0.0,188,188,1,0,64.8,450 

4B 8040 DftTft 0,35,4,0,16,8.0,8, 

16,0,4,35,0,8,64.0. 186 
5ft 8050 DftTft 1,35,0,8,38,0,8,16 

,0.4. 16,0,4,8.0,8, 185 
A3 8060 DftTft 4,0,16,4,0,16,8,0, 

35,8,0,38, 1,855, 198,816,778 
IS 5070 DftTft 1,855,198,8,0,38,8 

,0.38.4,0, 16,4,0, 16,8.554 
18 50B0 DftTft 0,8.16,0,4,16,0,4, 

35,0,5,38,0,5,64.0,180 
46 5090 DftTft 1,35.0,5,16,0,4,8, 

0,8,4.0.16,5,0,35,185 
FD 8100 DftTft 1,0,64,0,188,158,0 

,65.0,0,54,0.0,8,0,34,485 
95 8110 DftTft 0,0.0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 
B3 8180 DftTft 0.0,0,0,0,0,0,0,0, 

0,0, 0,0, 0, 0,B, 8 
B9 8130 DftTft 0,0,0.0,0,0.0,0,0, 

0,0,0,0,0,0,0,0 
87 8140 DftTft 0,0,0,0,0,0,0,0.0, 

0,0,0,0,0,0,30,30 
FD 8150 DftTft 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0.0,0,0 
0F 8160 DftTft 0,0,0,0.0,0,0,0,0, 

8,0,0,54,0,0,193,855 
ED 8170 DftTft 188, 0.S4, 0,0, 8,0.0 

,0,0,0,0,0,0,0,0,190 
CD 8180 DftTft 0.0,0,0,0,0,0,0,0, 

0,0,0.0,0,0, 173, 173 
C5 8190 DATA 0,0,0,0,0,0,0,0.0, 

0,0,0,0.0,0.0,0 
A8 8500 DATA 0,0,0,58,0,0,99,0, 

1, 158, 195,5.0, 35, 8, 0.4B4 
91 8810 DATA 35 , 5 , 0 , 35 , 1 , 15B , 19 

8,0.99,0,0,88,0,0,0,0,514 
8F 8880 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,5,5 
E3 8830 DftTft 0,0.0,0,0,0,0,0,0, 
0,88,0,0,99,0, 1 , 188 

61 8840 DftTft 15B, 195,6,0,48,8,0 
,8,8,0,8,8,0,8,8,0,430 

ftD 5550 DftTft 8,8,0,8,8,0,8.8.0, 

8,6,0,48,1,188,198,431 
49 5560 DftTft 0,99,0,0,58,0,0,0, 

0,0,0,0.0.0,0,81 , 148 
Fl 8870 DftTft 0,88,0,0,99,0,1.18 

8, 195,6.0,48,54.0, 15,35,570 
Bft 5580 DftTft 0,5,35,0,5.35,0.8, 

38,0,8,38,0,8.35,0,170 
84 5590 DftTft 8,38,0,8.38,0,8,35 

.0,5,35,0,5.38,0,8.178 
C7 8300 DftTft 84,0,18,6,0,48,1,1 

8B, 198,0,99,0,0,88,0, 117,655 
04 8310 DftTft 1,255.192,2,0, 38, 8 

,0,38,4,0, 18,4,0, 16,8,554 
00 8380 DftTft 0,8,8.0,8,16,0.4,1 

6,0,4,38,0,8,38,0, 130 
30 8330 DOTft 8,38.0,2,16,0,4,16 

. 0, 4, B, 0,8,8,0, 8, 10B 
Fft 5340 DftTft 4,0.16,4,0,16,5,0, 

38.5,0.35, 1,555, 198,836,798 
9D 8350 DftTft 0,0,0,0,8,0,0,80,0 
, 0 , 34 . 0 . 0 , 34 , 0 , 0 , 96 
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FC 2360 DATA 65 . 0 , 15 , 1 58 , 24B , 16 

,0,4.8,8.6,4,0,16,5,0.514 
78 2370 DATA 35,4,0,16,8,0,8,16 

,0,4,15, 128 , £48 , 0 , 65 , 0 , 544 
83 2380 DATA 0,34.0,0.34,0,0,20 

,0,0,8,0,0,0,0,7B, 174 
05 2350 DATA 1,0,54,1,126,192,1 

, 59 , 54 , 1 , 20 , 64 . 1 , 8 , 64 , 1 , 709 
33 2400 DATA 0,64,1,0,64.1,0,64 

.6,0,46,9,0,8,16,0,280 
4C 2410 DATA 4.8,0.8.6,0.48,1,0 

,54, 1 ,0,64, 1 ,0,64,269 
E6 2420 DATA 1 . B , 64 , 1 , 20 . 64 , 1,9 

9 , 64 , 1 , 128 . 1 2B , 1 , 0 , 64 , 12B . 77 

2 

4C 2430 DATA 0,28,0,0,99,0,1,12 
8, 192,6,0,48.24,0, 12,36,576 

3C 2440 DATA 0,50.33.129,194,32 
, 39, 2 , 32 , 58 , 5 , 35 , B . 2 , 32, B , 6B 
2 

20 2450 DATA 2,32.8,2,32,8.2,32 
,6,2.32,8,2.32,6,2.212 

91 2460 DATA 24, B. 15, 6, B , 48, 1 , 1 
36, 195,0, 107,0,0,28,0, 190,76 
0 

3C 2470 DATA 0.0,0,0,0,0,0.0,0, 

0.0,0.0,0,0,0,0 
2A 2480 DATA 0,0,0,0,0,0,0,0,0, 

0 t 0,0,0,0,0.e,B 

10 2490 DATA 0,0.0,0,0,0,0,0.0, 
0,0,0,0,0,0,0,0 

92 2500 DATA 0,0,0,0,0,0,0,0,0, 
— 0 , 0 , 0 . 0 , 0 , 0 , 96 , 86 

04 2510 DATA 0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0 

11 2520 DATA 0,0,0,0,0,0,0,0,0, 
8,0,0,20,0,0,42,70 

E4 2530 DATA 0.0,20,0,0,8,0,0,0 

,0,0,0,0,0,0.0,5b 
EA 2540 DATA 0.0.0,0,0.0,0,0,0, 

0,0,0,0,0,0,233,233 
6C 2550 DATA 0,0,0,0,0.0.0,0,0, 

0,0,0,0,0,0,0,0 
C0 2560 DATA 0,0,0,28,0,0,34,0, 

0,73,0,0, 148, 128,0, 170,581 
DE 2S70 DATA 15B.0. 148. 15B, 0,73 

,0,0, 34 .0,0, 58. 0,0, 0,0, 539 
EB 2580 DATA 0,0.0.0,0.0,0.0,0, 

0,0,0,0,0,0,43,43 
07 2590 DATA 0,0.0.0.0,0,0,0.0, 

0,0,0,0,65,0.0,62 
9B 5600 DATA 65 , 0 , 0 , 1S6 . 128, 1 . 3 

4.64,2,73.32,2,148,160,2,170 
, 1037 

0F 2610 DATA 160,2.148,160,2,73 
, 35 , 1 , 34 , 64 . 0 , 156 . 128 , 0 , 65 , 0 
, 1055 

46 5550 DATA 0.65,0,0,0,0,0,0,0 

,0,0,0,0,0,0, 197,559 
E6 5630 DATA 0,0,0,0,0.0,0,127, 

0,0. 15B, 12B, 1 ,62,E4.2,S12 
15 2640 DATA 65.32,4,156,144,9, 
34 ,72, 10,73,40. 10, 14B, 16B, 10 
, 170, 1145 
80 2650 DATA 168,10,148,168,10, 
73 , 40 , 9 , 34 , 72 , 4 , 156 , 144 , 2 , 55 

,30,1135 

FB 2660 DATA 1,62.64,0,129.128. 

0, 127,0,0,0,0,0,0,0, 197,707 
90 2670 DATA 0 , 2SS, 12B, 1 , 0, 64 , 2 
,127, 32,4. 126,144,9,62, 72, IB 
,1046 

FD 2EB0 DATA 65,36,36,156,146,4 

1 , 34 , 74 , 42 , 73 , 42 , 42 , 148 , 170 , 

42, 170, 1317 
43 2590 DATA 170,45,146,170,42, 

73,42,41.34,74,36. 156, 146, IB 
.65, 36, 1593 
3C 2700 DATA 9,62,72.4,128,144, 

2, 157,35, 1 ,0,64.0,555. 128, 16 

B, 1196 

10 5710 DATA 0,555, 1SB, 1 .0,64,2 

.0,32,4,0, 16,8.0. B, 16.534 
OB 2720 DATA 0,4,32,0,2.32,0,2, 
32.0.5,32,0,2,32,0.175 



CA 2730 DATA. 5.32.0,2,32.0,2.32 

,0,2,32,0,5, 16,0.4, 1SB 
08 2740 DATA 8,0, B, 4,0. 16.2,0,3 
2, 1,0, 64, 0.25S, 0.0,390 
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5C 100 REH AUTHOR L.KEIGHLEY 
ID 110 REH COPYRIGHT 12/11/84 

52 120 PRINT"CCLR,DDUN103" 
B7 130 PRINT"tRlGHT14,CI123 M 
SF 140 PRINT"CRIGHT14,RU50N3 EL 

ECTRONIC " 
79 150 PRINT"CRIGHT14,RUSDN3 N 

OTESCQK " 
Bl 160 PRINT"CRIGHT14,CU12J" 
3D 170 X-FRECO) 

AS 180 PRI NT "t DQUNS , R I GHT 103 COR 

E REQUIRED "i3B911-X 
39 190 DinTSSC10),T3SC10),RlC15 

3.DSC113.LSC50) 
4E 200 F0RX-1T0500:NEXTX:0PEN1S 

,8,15 
OE 210 G0TO1640 
16 220 PR1NTTABC3B) ; "CS-3" 
6B 230 RETURN 
87 240 F1S-"N" 

13 250 IFLENCKEXLENCSS3THENRET 
URN 

36 260 F0RX-1T0LENCSS) 
20 270 IFniDSCSE , X , 13"" ' "THEN30 
0 

BE 2B0 IFHIDSCSS, X, 13-niDECKS, X 

, DTHEN300 
AD 290 RETURN 
07 300 NEXTX 
OS 310 F1S-"Y" : RETURN 
OF 320 INPUT«tlS,EN,Ens,ET.ES 
FA 330 IFEN-OTHENRETURN 
8B 340 IFEN-50THENRETURN 
3D 350 PRINTCHRSC 142) 
75 360 PRINT"CCLR]ERROR";ES 
86 370 PRINTERS 

46 380 PRINT"CD0UN103D0 YOU UIS 
H TO CONTINUE CY/N)" 

48 390 GETXS: IFXS---THEN390 

3F 400 IFXS<>"N"ANDXSO"Y"THEN3 
90 

BS 410 IFXS-"Y"THENS090 

2B 450 RETURN 

BE 430 IFE-E1THEN510 

35 440 IFE>E1THEN510 
90 4S0 F0RX-E-1T0E1 

9A 460 RC-X:GDSUB1600;G0SUB3B0 
26 470 1FEN-50THENE-X:G0T0550 

36 480 INPUTOl.XS 

E5 490 IFLEFTSCXS, 1)-"CPI3 , 'THEN 

E-X:G0TD520 
CF 500 NEXTX 
70 S10 E-E--l:El-E 

RSCS2)-"CPI3" 
B9 S60 XS-XS+STRSCrll) + "CPI3"+PE 

+"CPI3" 

09 S70 RC-1:G05UB1600:G0SUB320: 

PRINT*1,XS 
C8 5B0 RETURN 

49 590 X1-1:RC-1;G0SUB1600:E05U 
B320: IFEN-S0THENXS-"CPI3":GD 
T0610 

5F 600 INPUTK1.XS 

AB 610 IFLEFTSCXS, 1 )-"C PI 3 "THEN 
RETURN 



OA 620 F0RX-1T0LENCXS) 
36 630 IFMID£CXS,X.13<>"CPI3"TH 
EN7B0 

E3 540 aNXlG0T0550,670,690,710, 

730,750,780 
SO 650 E-UALCLEFTSCXS.X-133 
90 660 G0T076O 

F3 670 El-UALCniDECXS,X2*l,X-X2 

-133 
9C 660 GOT0750 

C5 650 51-UftLCniDSCXS,X2+l,X-X2 
-133 

BB 700 GDT0760 

30 710 S2-UALCniDSCXS.X2-l.X-X2 

-1>3 
D4 720 GQT07G0 

EF 730 Ml-UALCriIDSCXS,X2-l,X-X2 

-133 
CO 740 GQTD760 
OS 750 PS-CniDSCXS,X2*l,63) 
BE 760 X2-X 
7E 770 Xl-Xl+1 
3D 7B0 NEXTX:X1S-"CQNTR0L" 
EF 790 IFX1>6THENRETURN 
FO BOO PRINTCHRSC142) : PRINT"CCL 
R3ERR0R - MISSING FIELD ";X1 
S 

AD 810 END 

36 B20 IFR-E3ANDR-E2THENE2-0: E3 
-O 

EO B30 XS-TS*"CPI3 "*STRSCS3)*"C 
PI 3 " *STRSC S4 3 * " C P 13 "*STRE C E2 
)*"CPI3"+5TRSCE3)-"CPI3" 
3E 840 XS-XS+TiS+"CPI3"*STRSCri2 
3+"CPI3" 

AB 850 RC-R:Ga5UB1600;GQSUB320: 

PR I NTH 1 , XS 
01 860 RETURN 

FD B70 X1-1:RC-R:GD5UB1600:G05U 
B320:F8-0: I FEN-50THENXS- "C PI 
3 " ; GQTC890 

78 880 INPUTtU.XS 

BB B90 FORX-ITOLENC XS3 

Bl 900 F0RX-1T0LENCXS) 

DA 910 IFniDSCXl,X,lX>"CPI3"TH 
EN1070 

54 920 0NX1G0TD930. 950, 970,990, 

1010, 1030, 1050, 1070 
94 930 TS-LEFTSCXS.X-13 
AD 940 G0TD1060 

40 950 53-UALCniDSCXS,X2-l,X-X2 
-133 

Bl 550 GQT01060 

3F 970 S4-UALCniOS(XS,X2*l.X-X2 
-133 

C5 9B0 G0TQ1060 

33 990 E2-OALCniDECXS,X2*l.X-X2 
-133 

E9 1000 G0TQ1060 

86 1010 E3-UALCniDSCXS,X2+l,X-X 

2-133 
FD 1020 GOT01060 
73 1030 TlS-riIDSCXS,X-l,13 
04 1040 GOT01060 

D8 1050 ri2-UALCriIDSCXS,X2-l,X-X 
2-1)3 

10 1050 X2-X:X1-X1*1 
22 1070 NEXTX-X1B-"5ECTI0N" 
OE 10B0 IFX1>6THENRETURN 
57 1090 GQTOBOO 

EC 1100 XS-STRSCE4)»"CPI3 H +STRS 
CE5)*"CPI3"*KS+ ,, CPI3"-STR5CN 
1)*"CPI3" 

BB 1110 RC-R2:G0SUB1E00.G05UB32 
OrPRINTMl.XS 

EA 1120 RETURN 

62 1130 X1-1:RC-RS:G0SUB1600:GD 
SUB320: IFEN-SOTHENXS* "CPI 3 " : 
S0T01150 

7D 1140 INPUTM1.XS 

El 1150 IFLEFTSCXS, 1)-"CPI 3 "THE 
NRETURN 

E4 1160 F0RX-1T0LENCXS) 

C7 1170 IFf1IDSCXS,X,l)<>"CPI3"T 
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48 
70 

a2 

ED 

46 

AM 

DA 
□C 

OS 
12 
ED 
BE 
AF 

DE 

A3 
00 



IE 
IE 

A3 
EH 

7B 
XH 
73 
5F 

EE 
90 
BF 
3E 
95 



B7 
CE 

2E 

BO 

BC 



KEN1270 

11B0 0NX1GDTQU90, 1210, 1530, 
1250, 1270 

1190 E4-UALCLEFTSCXS.X-133 
1200 G0T012SO 

1510 ES-UALCHIDSCXS.XE+l.X-X 
2-1)3 

1550 E0T015E0 

1530 KS-MIDSCXS.X2*1,X-X2-1) 
1240 GQT012B0 

1250 N1-UALCMIDSCXS,X2-1,X-X 
2-133 

12B0 X2-X:X1-X1*1 
1270 NEXTX:X1S-"ENTRY KEY" 
1280 IFX1>4THENRETURN 
1590 G0T0800 

1300 XS-STRSCN2) + "CPI3 ,, *D1S* 
"CPI3" 

1310 RC-R3:G0SUB1G00:60SUB32 

0:PRINTW1,XS 

1320 RETURN 

1330 Xl-1 : RC-R3:G0SU31EOO:G0 

SUB320; IFEN-50THENXB-"CPI3": 

BQT01350 

1340 INPUTtl.XS 

1350 IFLEFTSCXS,1)-"CPI3"THE 
NRETURN 

13B0 FORX-lTDLENtXS) 

1370 IFn[DSCXS,X,l)<>"CPI3"T 

HEN1430 

1380 0NX160T01390. 1410, 1430 
N2-UALC LEFTS C XS , X- i 3 3 
G0T01420 

DlS-MlDSfXS,X2*-l,X-X2-l 



L33C 
1400 
1410 

3 

1420 
1430 
1440 
1450 

14E0 



X2-X:X1-X1*1 
NEXTX: X1S-"ENTRY" 
IFX1>5THENRETURN 
GCTDBOO 

0PEN4.4, 1:PRINTCHRSC142 
3 : OPENS , 4 , 7 : PR 1 NTttS i CLC5E5 : P 
R1NTCHR5C 143 : RETURN 
1470 0PEN4,4.7:RETURN 
1480 0PEN5,4.B:PRINT«B:CL0SE 
S : CL0SE4 : RETURN 
1490 PC-2:GOSUBlB0O ; G0SUB320 
; PRINTH1 , ri; RETURN 
1500 X1I-"":F0RX-1T0LENCDSC1 
03) 

1510 IFMIDSCDSC10),X,1)-"3"T 
HENX1S-X1S+CHRSC44 3:G0T01530 



95 


1520 

J 


X1S-X1S+MIDSCDSC10),X, 1 


AE 


1S30 


NEXTX. DSC 103 -X1S: RETURN 


12 


1S40 


I FE< R2THENRETURN 


CO 


1550 


E-R2;G0T01Sa0 


Al 


15B0 


I FE<R3THENRETURN 


BO 


1570 


E-R3 


FO 


15B0 


G0SUBS40 


B5 


1590 


RETURN 


EC 


1E00 


RA-tNTCRC/255) 


C4 


1G10 


RB-RC-RA*256 


OB 


1B20 


PRINTH15, "P"CHRSC983CHR 




S(RB>CHRS(RB1CHR5C13 


EA 


1S30 


RETURN 


S5 


1B40 


PRINTCHRSC14S):PR1NT"CC 




LR.SU.S-S?^!}" 


32 


1G50 


PRINT"CS-3 1. INITIALIS 



E NOTEBOOK DATABASE" ;: E05UB2 
20: PR! NT "C 5-3 " ; : G0SUB220 
B2 1BS0 PRINT"CS-3 2. SELECT CR 
USON 3 SECT I ONC RUSQFF 3 USAGE"; 
: GQSUB220 
6B 1B70 PRINT"C5-,SPC431 . CREAT 
E NEW CRUSON3SECTIONCRUSDFF3 
■ ; : GOSUB220 
43 1BB0 PRINT"CS-,SPC432. DELET 
E CURRENT C RU5DN35ECTI0NC RUS 
0FF3"; :E05UB520 
40 1E90 PRINT"CS-,SPC433. AMEND 
CURRENT CRUS0N3SECTI0NCRUS0 
FF3 " ; ;GQSUB220 



70 1700 PR1NT"CS-,SPC434. SELEC 
T CRUSON3SECTIONCRUSOFF3"; :G 
0SUB220 : PR I NT "C S- 3 " ; : G0SUB22 
0 

AA 1710 PRlNT"CS-3 3. SELECT CR 

US0N3 ENTR I ESC RUS0FF3 USABE" ; 

i B0SUB250 
C8 1720 PR1NT"CS-,SPC431. CREAT 

E NEU CRUSQN3ENTRYCRUSDFF3"; 

:G0SUB220 
CO 1730 PRINT"CS-.SPC432. DELET 

E CURRENT C RUSQN3 ENTRY [RUSQF 

F3"; ;GCSUB220 
E5 1740 PRINT":S- ( SPC433. AMEND 
CURRENT CRU50N3ENTRYCPUSOFF 

3"; :EOSUB520 
01 1750 PRINT-C5-.SFC434. UIEU 

CRUSON3ENTRYCRU50FF3 " ; : GOSUB 

220 

9F 17E0 PRINT' , CS-,SPC43S. SELEC 
T CRUS0N3ENTRYCRUS0FF:"; ;GQS 
UB220 : PR I NT "C S- 3 " ; : G0SUB22O 

00 1770 PRINT"C5-3 4. SELECT CR 
U50N 3 PR I NTC RUSDFF3 U5ABE";:5 
0SUB520 

51 1780 PR1NT"CS-,5PC431. ALL L 

ABELS" ; :G0SUB220 
DS 17S0 PRINT"CS-,SPC432. SINGL 

E LABEL" ; TAB C 30 3 ; "C5U, S"7 , CU 

3" 

34 1B00 PRINT"CS-.SPC433. ALL R 

EP0RT";TABC30) ; "CS-3 USABE" ; 

: E0SUB22O 
B9 1B10 PR1NT"CS-,SPC434. 5INGL 

E REPORT" ; TABC303 ; "CS-3 " ; rt ; : 

G05UB250 
BE 1B50 PR1NT"CSJ,S*29,CE,S-7 1 S 

K3" 

DO 1830 PRINT-ENTER REQUIREMENT 

(9 - END RUN)" 
SB 1B40 EETXS: IFXS-""THEN1B40 
BB 1850 X-UALCXS) 

A5 1BB0 1FX< 1DRX>9THENPRINT"ERR 
OR - PLEASE RE-ENTERCUP23":G. 
0T0184O 

B9 1B70 0NXG0T02110, 1B80, 1BBC, 1 
BBO , 1540, 1B40, 1B40 , 1540 , 2100 

Fl 18B0 IF01S-"Y"THEN1930 

CE 1B90 0PEN1,B,2, "0 : ELECTRICNO 

TEB0QK":01S-"Y": I NPUTH1S , EN. 

EMS.ET.ES 
E3 1900 IFENO0THEN5010 
4C 1910 GDSUBS90 

6E 1920 RC-2:G0SUB1500:G0SUB350 

iINPUT#l ,M 
FF 1930 GETXB: I FXS- " "THEN 1930 
88 1940 Xl-UALCXS) 
BO 19S0 IFX1-0THEN1840 
7F I960 IFX1>5THEN1930 
EO 1970 DNX-1GDT019B0 , 1990.2000 

SO 1880 ONX1GOT02310,2E10,29BO, 

3550, 1930 
D3 1990 DNXlGOT03B50.4S20.4Bia, 

BOBO , E430 
DB 20D0 ONXlGOTOBSBa.ESBO.yHlO, 

B500, 1930 
95 2010 I FEN< > B2THEN5070 
8B 5020 INPUT "ENTER NOTEBOOK NA 

HE ";XS 

90 2030 CL0SE1 ; 0PEN1 ,8,2, "0: ELE 

CTRICNOTEBDOK" 
ED 2Q40 INPUTHIS.EN.EHS.ET.ES 
86 5050 IFENO0THEN5070 
IB 20B0 G0T01910 

CE 2070 PR 1 NT " C CLR3 ERROR - CODE 

";ES ; "CD0UN3 " 
4A 20BO PRINTEnS:CLOSEl:CLOSElS 

B2 2090 END 

29 2100 PRINT"CCLR3":CL0SE1 : CLO 

SE1S:GQT020S0 
55 2110 PRINT "CCLR3 ENTER 'N ' BE 

LOU FOR STANDARD NAMEC H0nE3 " 



?E 2120 INPUT"CDOUN23ENTER NOTE 

BOOK NAME " ;XS 
E8 2130 IFXS-"N"0RXS-"CSN3"THEN 

2170 
F5 2140 CL0SE1 

IB 2150 DPEN1.B,2,"0:"»XS*",L," 

+CHRSC42) 
7A 21E0 GOT021BO 

A9 2170 CL0SE1 : OPEN I , B, 2 , "0: ELE 
CTR I CNOTEBOOK , L , "+CHRS C 42 3 

51 2180 INPUT"ENTER MAXIMUM NO. 

OF RECORDS ";M 
7A 2190 IFn>35000RM<500THEN21B0 

12 2200 FDRRC-3T0M-. PRINT "CCLR3R 
ECORDS SET UP :- ■ ; RC 

AE 2210 G0SUB1600 

BE 2220 PRINTttl , "CPI3 " 

CO 2230 NEXTRC 

4B 2240 E-26: E1-2S : Sl-0 : S5-0 ; Ml 
-0 

Dl 2250 PR INT "CCLR3 ENTER POINTE 
R CHANGE PASSWORD"; 

EF 25E0 I3-E: I4-S:GDSUB9200 

9S 2270 PS-IS 

B6 2280 G0SUB540 

BB 2290 M-M-2:G0SUB1490 

7B 2300 CL0SE1:G0T01540 

5A 2310 PRINTCHRSC 14) : PRINT "CCL 
R , RUSON , SC , SR , SE , SA , ST , SE , SS 
PC.SS.SE.SC.ST.SI .SO.SN.RUSO 
FF , S5PC3 C CSSPC , SE , SN , ST , SE , S 
R.S5PC3 ' CSE, SO , SF3 ' CS5PC, ST , 
S0 ( SSPC,SE,SN,SD3" 

FD 2320 PRINT"CDDliJN.SS,SE.SC,ST 
,51 ,SO,SN,SSPC,ST,SI , ST , SL , S 
E3 "; 

52 2330 13-10: 1 4-1 : G0SUB9200 

SF 5340 IFIS-"RETURN"QRIS-"*E-" 
ORIS- "END"ORIS-"E0F"THENPR IN 
TCHRSC1423:G0T01G40 

5A 23SC TS-IS 

A7 23E0 S3-1:S4-S2:E2-0:E3-0:M2 
-Ml + 1 

2F 2370 PRINT"CD0UN2,SPCS.ST3-C 
ST,SE,SX,ST3":PRINT"CSPC5,SL 
3 -C SL , 5A . SB . SE , SL . SS3 " : PR I NT 
"C 5PC5 , SN3-CSN , SO , ST , SE , SS. U 
PS3" 

95 23B0 INPUT"CDOUN.SU,SS.SA,SG 

, SE , SSPC , ST , SY , SP , SE , SSPC3 C C 

SL3/CSN3/CST33 ";T1S 
4B 53S0 IFTlSO"CST3"ANDTlSO"C 

SN3"ANOT1SO"CSL3"THENPRINT" 

CUP33":GOT023BO 
3E 2400 PRINT"CDDUN103'' 
93 2410 IFS5<3THENR-3:E0TD5470 
A3 2420 F0RR-S1T0S2 
FD 2430 RC-R:GOSUB1BOO:GOSUB320 

: INPUTK1.XS 

EF 2440 IFTS-LEFTSCXS.LEN(TS33T 

HEN25B0 

BB 2450 NEXTR 

B7 24G0 R-55+1 

F2 2470 IFS40THENS4-1 

BE 2480 B0SUBB20 

S7 5490 S2-R:M1-M1+1 

13 2S00 IFS1-0THENSL-R 
EB 2510 GDSUB540 

8F 2520 M-M-l 

EC 5530 G0SUB1490 

BA 5540 R9-R:R-S4:G0SUBB70;S3-R 
9 : G0SUB820 : R-RS : GDSUB870 

14 2550 PRINT"CRIGHT11, RUSON. SR 
.SE.SC.SO.SR.SD.SSPC.SI ,SN,S 
S,SE,SR,ST 1 SE,SD3" 

BB 2SG0 F0RX-1T01000; NEXTX 

14 2S70 PRINTCHRSC1423:GOT01E40 

9B 25B0 PRINT"CRUSDN,SE,SR5,S0, 
SR . RUSOFF , SSPC , CZ , SSPC , SD , SU 
, SP , SL , S I , SC , SA , ST , SE , SSPC , S 
T.SI .ST.SL.SE, SSPC, C2 , SSPC, S 
P , SL , SE, SA , SS . SE , SSPC , SR , SE , 
ST.SR.SY3" 
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b / 


scon f nova i Tni ann vtv 
cbbU rUhA"! i UlcUU : NbX IX 


cc 
bb 


men ppimt"<4 r ci co cc ct 
JU3U rniHl i . L3L,3H,33,31 , 


SB 


35 ic na- 1 * GosuBsao 


Jr 


cdUU bulUcJlU 




ecpr cc cp cr ct ci cn cm cc 
bbrL . bb . bb , bL , b 1 ,31 , bu , bN , bb 


47 


3530 G0TQ3QQC 


Hi 


GslU rrt IN I UnrcSt In J ; rK INI LLL 

D cr cc ct cr ot cc ccor cr 
K , 3D , 3L . 3L , be. ,31 , bb , :br_ , bL , 




pr cp cn ci cm ct cc cpi . _ r 
rL , b" , bU ,31, bN , 31 , 3L , 3R J It 

DiicnM 1 rcii " . cu 
KV3UN , LLr 1 J ; b t 


73 


3530 PRINT"CD0UNa SP1RS5lJriRn 
ALREADY INPUT WAS INURI in*'- 




Ct 1 CDS C*( CT ccor CC c 

bu . bKc , bL , bN , b I , bbrL , bb . bt , b 


re 
Lr 


incn pdimt"C r cm cc cv ct 
JUbU rKlNl b, LbN , bb , bX , b i , 




FDRX- 1 T020QQ - NEXTX 


r i 


r ct c r cn cm7 
L , b 1 , b 1 , 3U , bN J 

pcan pp i *jt " r nniiiM cc cc cr ct 
CwCu rrcim l uuwn , 33 , bb , bL , b I 

,51 .SO.SN.SSPCJ " j TS 




ccor cr cm ct co c<j ccor cd 
bbrL ,3L,3N, bl , bK, br , bbrL , br , 

c i sn st sf sp sspn - — rpu 


ED 
C5 


3540 GQTOSP'IC 

35S0 R-Sl : Rl C 1 1-51 - FGRX-2T01 




3U , 31 , 311, 31 , 31 , 3r(, 33rL J . . KLP 

S0N,LEFT3";Ec? 


^— ■ ' — * * • • • ™ * * * *rf A * I tat 4* #V — & L -J ^ 

1 : Rl CX 1 -0 : NEXTX : PRI NTCHRSC 14 


CO 

Lb 


cbJU rK INI LLJUUNd , bP , bK , bL , 5 


RU 


bmn DD!Mi"c r ci Crt cc cn 
JU/U rKlNl b. l3L,3P,33,3U 




) 




brL , bY , bu , bu , bbrL , bb , bU , 5R , 5 




r Cc cm ct co c\s 7 r co cn c t 
Lbb , bN .bl,bK,bYJ Lbr , bu ,31 , 


03 


''SRO PPINT'Tn R RUSflrJ SS SF 
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OS 5510 PRINT 

14 5520 FDRRB-1TQ10 

89 5530 IFDSCRBJ-""THENS600 

77 5540 IFDSC103-""THEN5560 

45 5550 DSCRB)-DSCR8+13: IFRB-10 
THEN5B00 

OA 55B0 IFL1< 1QTHENL2"10: L3-L1- 
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CI 5570 lFLl>3THENL3-R8*-l:L2-0 

B3 55BQ PRINTL1-CC10-L2J*L33;TA 

BCS3 ;DS(RB3 
83 5S90 NEXTRB 
CF 5600 I FL1 < 2THENSS30 
81 SS10 DSCR8)-D1S 
B5 SE20 PRINTL1 ; TABC5) ; D1S 
73 5630 PRINT ,, CDOUN,SA]nEND CCS 

Y]/CSN]3, 8 - CSrOENU, 3 CSS 

SECURITY CSA]CCSS" 
FS 5540 PRINT"CSPC15]6 - CSOJEL 

ETE, 7 - CSHNSERT" 
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7A 5660 IFXSO "Y"ANDXSO "N"ANDX 
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□XS<>"7"THEN5650 
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46 5650 IFXS-"N"THEN5780 
02 5700 IFXS-"6"THEN5870 
FS 5710 IFXS-"7"THEN5970 
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AB.-5730 PRINT"C5E]NTER CSN3EU C 

5DDETAILS " 
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0 
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14 5950 R3-N2:GOT05B00 
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□0 5390 D1SCL15-D1S 
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ETE": L2-L2*10-Li : L3-10-L1 :G0 

T06140 
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3C 6430 PRINTCHRSC14J:PRINT"CCL 
R, RUSON. 5E,5N.ST.SR,SY] CSM, 
SE.SN.SU]" 

DB 6440 R2-E2:R1C1)-E2:F0RX-2T0 
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S3 6450 PRINT"CD0L)N,SD]0 YOU RE 
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SN])" 
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N"THEN6460 
50 6470 IFXS-"N' , THENSffi-" ,, :GOTOG 

520 

41 6480 PRINT"CDOUN,SI]NPUT SEA 
RCH KEY CUSE ' ' ' FOR UILO" 

6F 6430 PRINT"CHARCTERS." 

20 6500 13-20: 14-2 : 60SUB9200 

B7 6510 SS-IS 

EF B520 I FE2< > 0THENBS60 

30 6530 PRINT"CDOUN,SN]0 C5D]ET 
AIL CSR]ECDRDS CSO]N CSF]ILE 

E9 6540 F0RX-1T01500: NEXTX 
AS 5550 GDT01B40 

AF 6550 PRINT"CCLR,RUS0N,SE,5N. 
ST.SR.SY] CSn,SE,SN.SU]";PRI 
NT"CD0UN,S5, 5E.SC.ST.SI ,50,5 
N] CRUSDN, LEFT] " ; TS ; "CRUS 

OFF] CST.SY.SP.SE] :- CRUSDN 
,LEFT]";T1S 

CD 6570 PRINT"CD0UN,5N]0." ; TABC 



10) ; "CSK]EY ";PRINT 

60 65B0 F0RR9-1T010 

DD 6590 G0SUB1130 

BA 6600 IFSS-""THEN6660 

□C 6610 G0SUB240 

96 6620 IFF15-"Y"THEN6B50 

53 6630 R1CRS*1)-E4: IFE4-RTHENR 

1C 113-1 :G0T0S710 

D5 6640 R2-E4:G0TD6550 

6C 6650 PI CR9J-R2 

CO GS60 T3SCR93-KS 

93 5570 RUR3+13-E4 

BO 5580 IFR1CR3+13-RTHENRU115- 

l : 6DT0G710 

DA 6690 R2-RHRS + 13 

2F 6700 NEXTR9 

CI 5710 FDRRB-1T010 

8C 6720 IFRKR85-0THEN5770 

30 6730 IFR1CRB1-RTHENB770 

AO 6740 IFT3SCRB)-" , 'TH£N6770 

DA 6750 PRINTR8;TABC10J;T3SCR8J 

6A 6750 NEXTRB 

47 B770 IFR1C113-OORRH113-RORR 
1CR9*13-R0RRU113-1THENPRINT 
"CDOUN, RUSON, 5C]DnPLETE" : GOT 
06790 

03 67B0 PR1NT"CDDUN,S^]0RE•' 
71 6790 PRINT"CDQWN,SI , SN , 5P , SU 
,ST] CSS.SE.SL.SE.SC.ST.SI ,S 
D.SN] CCSZ,SE,SR,SO] FOR C5H 
]DRE3 " 

32 SBOO print"cspcig:c- for csn 

3ENU) " 

BA 6B10 PRINT"CSPC20] " ; j 13-2: 14 

-1-.GD5UB9200 
A2 6820 IFIS-"-"THEN1640 
El 5830 I F I <> 0THEN68B0 

40 5B40 IFR1C11J-0DRR1C11 J-1THE 
N58S0 

74 6BS0 R2-R1C11) 

C3 6BB0 F0RX-1TD11:R1CX)-0:NEXT 

X:R1C13-R2 
EO GB70 GOT06550 
AC GBBO IFK-RB-1THEN5S10 
SO 6830 PRINT"CUP3] B 
85 5300 G0T06B00 
99 6910 R2-R1CI3 
11 6920 G0SU81130 
87 6930 N2-0:DS-"" 

CC 6340 F0RX-1TD10:D1SCX:-" ,, : NE 
XTX 

75 6350 PRINT"CDDUN,5E,5N,ST,SR 
.SY] ";KSi" CSL.S0,5A,SD,5E, 
SD] n 

F7 5950 F0HX-1T01S00:NEXTX 
5F 6970 G0T0164O 

BB 6SB0 PRINT"CCLR3":PRINTCHR5C 
1 4 3 : PR I NT " C RUSON , 5L , SA , SB , SE 
.SL.SSD" 

F7 B930 IFT1S-"L ,, 0RT1S-"C5L]"TH 
EN7030 

4A 7000 PRINT"CDDldN,Sn,SA SR SK 
•SE.SR] CST.SY.SP.SE] CSN^SD 
,ST] CSL.SA.SB.SE.SL]" 
44 7010 F0RX-1TQ1000; NEXTX 
OD 7020 G0TD1640 
60 7030 0NX1G0T07040.7360 
65 7040 PRINT"Ca.R,SA,SL2] CSL 
SA.SB.SE.SL] CSP.SR.SI .SN.ST 

21 7050 PRINT"CD0WN,55,SE.5C ST 
.SI.S0.5N] : - CRUSON, LEFT] " ( 
TS 

CC 7060 PRINT"CDOUN]"- IFFS-"Y"T 
HENRETURN 

9B 7070 GDSUBB670 i R7- ' 8 

56 7080 IFE2-0THEN734O 

9A 7090 R2-E2 

DD 7100 GDSUB1130 

A4 7110 IFNIO0THEN7140 

56 7120 PRINT"CDOUIN,SN t SD] CSL 
5A,SB.SE.SL,S5] CSF.SO.SR] C 
SE.SN.ST.SR.SY] "j KS; "CUP2] " 
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: FORZ 1 - 1 TO 1 OOO ; NEXTZ 1 
87 7130 GOT07S60 

91 7140 R3-N1 

AF 7150 F0RS-1TDL* 

CI 7160 G0SUB133D:DSC10)-01S:G0 

SUB 1500 : LS(S3"DSC103 
□E 7170 IFN2-0THEN7210 
5F 7180 R3-N2 
03 7190 NEXTS 

92 7200 S-L* 

05 7210 IFN2-00RS<L';THEN7250 
SA 7220 IFR7-1BTHENFS-"Y":G0SUB 

7040. FS-"N":R7-0 
A3 7230 R7-R7+1 

C4 7240 PRINT"CD0lUN,5U 1 SA t SR.5N 
.si.sn.sb: CSL,SA,SB,5E.5L3 
C503/C5F.SL 1 S0,SW3 ";KS 
69 7250 GOSUBBBBO 

EO 7260 IFF1S-"Y"THF-NF1S-"N";G0 

T07300 
A5 7270 IFE4-RTKEN7300 
□3 72B0 R2-E4 
A7 7290 G0T07100 

32 7300 PRINT"CD0WN3,SL,SA.SB.S 

e,sl3 csp.sr.si.sn.st: CSC,S 

D , SM , SP , SL , SE . ST . SED " 
DB 7310 FQRX-1T01000.NEXTX 
A5 7320 G0SUB14B0 
AS 7330 G0T01B40 

3E 7340 PRINT"CD0UN,SN,S03 CSL. 

SA,SB,SE,SL,SS3 CST.S03 CSP. 

SR.SI .SN.ST3" 
E2 7350 G0T07310 

as 7360 print"cclr.ss,si .sn.sg, 
sl.se: csl.sa.sb.se.sls csp, 
sr.si.sn.sti" 

34 7370 print"cd0un,5s 1 se 1 sc,st 
.si.s0.sn3 :- crusqn , left3 " ; 

IS 

Fl 73B0 PRINT"CD0WN,SK,5E,SY3 : 

- CRU50N,LEFT3";KS 
BO 7390 F1S-"Y":G0SUBB670 
IS 7400 GQT07110 

27 7410 PRINT"CCLR3";PRINTCHRSC 
14); I FE2-0THENPR I NT " C CLR , RUS 
ON,SA,SL23 CSR.SE.SP.SO.SR.S 
T3";G0T0SS30 

19 7420 GQSUB1470 

73 7430 PRINT*4:PRINT»4, " C5S.S 

e.sc.st.si ,so, sn: :- cleft: 

**lTS ; " CST.SY.SP.SE: CLEFT 
3"; Til 

OB 7440 CL0SE4:G0SUB14BO 

OB 7450 PRINT"CCLR.RUS0N,SA,SL2 

1 CSR,SE.SP ( S0,SR,ST3" : PRINT 
"CDOUN.SS.SE.SC.ST.SI .S0.SN3 

:- CRUSON, LEFT3";TS; "CRUSQF 
F3 CST,SY,SP,SE3 CRUS0N3";T1 
S 

D9 7460 IFT1S-"T"0RT1S-"CST3"TH 
EN7500 

OB 7470 PRINT"CD0UIN3 1 CS0.SR3 

2 CSU.SP3" 

BB 7480 GETXS: IFXS- " "THEN7480 
Si 7490 RB-UALCXS): IFRB-00RR8>2 

THEN7480 
12 7500 IFE2-0THENB4B0 
14 7S10 R2-E2 
73 7520 G0SUB1130 
EC 7530 LSC13-KS 
A3 7540 R3-N1 

CE 7550 IFTlS-"T"DRT:s-' , C5T3"TH 

EN8290 
80 75S0 IFR8-1THEN807C 
47 7570 IFN1-0THENLSC23-"CSN,S0 

3 CSE.SN. ST.SR.SI.SE, SS3":S- 
2:G0T07B40 

34 7580 F0RS-2T0S0 

71 7590 GDSUB1330:DSC10)-D1S:G0 

SUB 1500; LSCS)-DSC10J 
BA 7G00 IFN2-0THEN7640 
6A 7610 R3-N2 
BS 7620 NEXTS 

F9 7630 PRINT"CDOUN,StJ,SA,SR,SN 
,SI.SN,SG3 - CSS3T0RE CS03UE 



RFLDUl CRUSON: ",KS 
OA 7B40 IFE4-RTHENF2S-"Y":G0TO7 
S70 

98 7650 R2-E4:F2S-"N" 
87 7660 G05UB1130 

BF 7670 PRINT*4 
16 7680 0PEN7,4,S 

OF 7690 XS-"AAAAP APAPAAPPAAAAA 

A AAA AAA A AAA A A AAA AAA " 
SB 7700 XS-XS+'TSPCBJAOAAA AAAA 

AAAAAAAAAAAAAAAAAAAPAAAAAAAA 

■i 

3C 7710 PRINT#7,XS:CL0SE7 
30 7720 IFF2S-"Y"THEN77S0 
3C 7730 PRINTB4, "CSK , SE , SY3 : - " 
, CHRSCB95 , LSCU , CHRSC29) , "CS 
K,SE,SY3:- " , CHRSC29 J . KS 
43 7740 G0T07760 

53 77S0 PRINT#4, "CSK , SE , SY3 : - ■ 

. CHRSC29) , LSC 1 J 
F4 7760 R9-1;XS-" H 
E7 7770 R3-N1-.N2-NI 
GG 77B0 IFN2-OTHENXS-"C5N ! S03 C 

5E , SN , ST , SR , SI , SE . SS3 " • GOT07 

BIO 

5E 7790 1FN2-0THEN7B1C 

75 7B00 GOSUB1330:DSCIOJ-D1S:GO 

SUB1500 
4D 7B10 R9-R9+1 
BA 7820 0PEN7.4.2 

5F 7830 RS-"99 AAAAAAAAAAAAAAAA 

AA AAA AAAP AAA AAA AAAA " 
39 7B40 RS-RS* " 39 AA AAA AAAA AAA 

AAPAA AAAP APP PAP A AAA AAA A " 
EA 7B50 PR INTtt7 t RS: CL0SE7 
BF 7B60 IFF2S- "Y"ANDR9>STHENB26 

0 

EF 7870 IFF2B-"Y"THEN7940 

49 7BB0 IFR3>SAN0N2-0ANDF3S-"Y" 
THENF3S- "N" : G0T08260 

7E 7B90 IFN2<>0ANDRS<-STHEN73B0 

07 7900 IFR9>5THEN7960 

50 7910 IFXS-""THEN7940 

23 7920 PR I NT tt 4, R9-1 , LSCR9) . CHR 
SC295 , R9- 1 , ; D1S: XS-"" : F3S- "Y 

11 7930 G0TD7B10 

EE 7940 PR INTK4 , R9-1 , LSCR3) 

24 7950 G0T07810 

S3 7960 PR!NTtt4,R9-l.CHRSC160)C 
HRS(29) , RS-1 , DSC 105 I IFN2-0TH 
ENF3S-"Y" 

CF 7370 G0T079S0 

38 7SB0 PRINT*4.RS-1,LSCR9),CHR 

S(29).R9-1,DSC103 
E4 7990 R3-N2 

43 8000 GDTD7790 

9F 8010 PRINT"CD0UIN5,RIGHT12,SP 
, SR. SI , SN , ST3 CSC,SO,Sn,SP ( S 
L,SE,ST.SE t SD3" 

07 80E0 CL0SE4 

FD 8030 PRINTCHRSC14);0PENS,4.B 

:PRINTdS:CL0SE5 
AF 8040 aPEN6,4 ( 10:PRINTtt6:CLaS 

E6 

45 8060 F0RX-lTai500:NEXTX 

99 9060 G0T01G4O 
71 8070 PRINTK4 
85 80B0 0PEN7.4.2 

FA B090 X5-"AAAAA AAAAAAAAAAAAA 

AAA AAA AAAA AAA AAA AAA " 
SO 8100 XS-X5*"CSPC63AAAAA AAAA 

AAA AAA A AAA AAA AAA AAA A A AAA A AAA 

ED BUO PRINTtt7,XS:CL0SE7 

81 8120 PRINTM4, "CSK , SE , SY3 : -" , 

CHRSC293 , KS 
B3 8130 PRINT»4:R9-1 
C9 8140 QPEN7.4.2 

7C 8150 RS-"99 AAAAAAAAAAAAAAAA 

AAA APAP AAA AAAA AAPAA " 
5E B1S0 RS-RS+" 99 AAA AAA AA AAA A 

AAA AAAA AAA AAAA AAA AAA AAA " 
S3 8170 PRINT«7,RS:CL0SE7 



Dl B1B0 IFR3-QTHENPR1NT»4 , 1 , "CS 
N.SD3 CSE.SN, ST, SR.SI ,SE,SS3 
":G0T0B250 

11 8130 G0SUB1330:DSC10)-D1S:G0 
5UB1500 

08 B200 PR1NT*4,R9,DSC10):RS-R3 
+ 1 

7E B210 IFN2-0THEN8260 
76 8220 R3-N2;G0T08190 
1A 8230 IFN2-OTHEN8560 
E7 8240 R3-N2 

59 8250 G0T0B200 

OE 82B0 IFE4-RTHENB010 
15 8270 R2-E4 
7F 82B0 G0T07S20 
B2 B290 DPEN7.4.2 

73 8300 X5-"AAAAA AAAAAAAAAAAAA 

AAAAA A AAA APR AAA AAAA " 
FS 8310 PRINT*7,XS:CL0SE7 
6C 8320 PR1NTM4 

BB B330 PRINTW4 , "CSK , SE , SY3 : - ■ 
, CHRSC29) , KS 

60 8340 PRINTK4 
B6 8350 0PEN7.4.2 

B3 8360 RS-"AAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAA " 
CB 8370 RS-RS- "AAAAAAAAAAAAAAAA 
pppppPAAPAAPAAAAAAA";PRINTI«7 
,RS:CL05E7 
CD 8380- 1FR3-0TH£NPR!NT#4, "C5N, 
S03 CSE.SN, ST. SR . S I , SE , SS3 " : 
G0T0B2S0 



D2 


B390 


G0SUB1330 


21 


8400 


DSC103-D1S 


2E 


B410 


IFN2-0THENB440 


FO 


B420 


R3-N2;G05UB1330 


BD 


8430 


DSC101-DStl03*D15 


5D 


8440 

3 


G05UB1500:PRINT*4,D5C10 


61 


8450 


IFN2-0THENB2G0 


7C 


8460 


R3-N2 


CD 


8470 


G0T0B38O 


CO 


8480 


PR I NT " C DDUN , R1GHT10 , SN, 



S03 CSE.SN.ST.SE. SR. SI .SE.SS 



3 CSP,SR.SE,SS,SE,SN ( ST3" 
CC 8490 G0T08020 

31 bsoo printchrsc14>:print"ccl 
r.ruson.ss.si.sn.sg, sl.se: c 
sr,se 1 sp.s0,sr,st3 ,, 

5E 8510 G0SUB1470 

EE B5E0 PRINT"CDDUN.SS,SE.SC,ST 
,SI,S0,SN3:- CRUSON , LEFT3 " ; T 
S;"CRUS0FF3 CST . SY , SP , SE3 :- 
CRUSON , LEFT3 " ; T1S 

IF 8530 PRINT&4 

41 8S40 PRINTH4, "CSK.SE.SY3:- C 

RUS0N3";KS:PRINTB4 
5D 8550 IFN1-0THENB010 
A3 B560 R3-N1 
97 B570 G0SUB1330 
00 B580 RS-D1S 

D9 BS90 IFT1SO "T"AN0T1S<> "CST3 

"THEN8G30 
FA 8G00 IFN2-OTHENB530 
20 B610 R3-N2:G0SUB1330 
22 8620 RS-RS+D1S 
25 8630 PRINTM4 , RS 

F3 B640 IFNE-OTHENCL0SES:GOTO80 
10 

9E B650 R3-N2 
88 B660 G0T08S70 

B6 8670 0PEN4.4,a:0PEN5,4,7:PRI 

NTttS 
DE B6BD CLOSES 
C3 B690 IFR-F8THENRETURN 
8B 8700 INPUT' , CDDUN,SN30. OF LI 

NES PER LABEL " ; L*; FB-R: F9S- 

"N " 

FA B710 INPUT"CD0UN.SN3Q. OF CH 
ARACTERS PER LINE " ; C* 

8F 8720 INPUT"CD0UN,SN30. OF LI 
NES BETWEEN LABELS " ; 5=1 

45 8730 PRINT"CD0UN,SI3S LINE C 
ENTERING REQUIRED CCSY3/CSN3 
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70 


8740 GETLS: IFLS<> "N"ANDL5<>" 


3B 


B9B0 


IFL:;-STHEN3010 


55 


92S0 


PRINT "CP1]"; 




Y"THENB740 


55 


8330 


IFLS-'-N-THENSOlO 


SF 


9270 


F0RI-1T0I3 


E0 


8750 PRINT'T00tilN,SI35 CHARAC 


70 


3000 


X6-1MTC CL?-.-S)/E5 ! F0RX7- 


E6 


9290 


PRINT'XCS]"; 




TER CENTERING REQUIRED CCSY3 




1T0X6: PRINT«4:NEXTX7 


35 


9230 


NEXT! 




/CSN]>" 


07 


9010 


F0RX3-1T0S 


F3 


3300 


PRINT'TCG] " ; 


G5 


87B0 BETCS : I FCS< > "N "ANOCS< > " 


SO 


90E0 


IFXS> 1 THEN91 10 


AO 


3310 


F0RI-1TOI3*! 




Y"THENS760 


SS 


9030 


I FAS- " Y "THENR9" I NT C C C-i- 


F7 


33E0 


PRINT"CLEFT3 " ; 


ES 


8770 PRINT"COOUIN,SA]RE THESE 




20 ) / 2 ) : RS- " " : GDT09070 


50 


3330 


NEXTI 




ADDRESS LABELS CCSY3/CSNJ J " 


BA 


9040 


IFCS-"N"THEN3030 


93 


9340 


GETI1S: IFI1S-""THEN934Q 




: FORX- 1 T03 : 5SCX3"" NEXTX 


CB 


3050 


RB-LENCLSCX333 






EE 


8780 GETAS; IFAS-"N"THEN8B30 


BF 


9060 


R9-INTC CC*-RB)/e) i RS"" ■ 


EB 


9341 


IFUS-", "THEN9340 


DF 


B7S0 IFASO"Y"THENB7B0 








EC 


9342 


IFI 1S-CHRSC445THEN9340 


OF 


8800 5SC1 J-"":S5CE)-" " ; SSC 


30 


9070 


F0RX2-1T0R9:RS-RS*" ";N 


17 


3350 


IFI1S-CHRSC13 3G0T09550 




3 3 - " C SPC4 1 " : SS C 4 J - " C SPCBD " : S 




EXTX2 


D8 


93B0 


IFHS-"3"THEN9S10 


95 


SC5)- ,, CSPCB]" 


Dl 


9080 


LSCX33-RS»LS(X3) 


35 


9370 


IFI1S-CHRI(20)THEN9440 


8B10 SSCS3- ,, CSPCaOJ":SSt73-" 


BF 


9030 


IFX3>9THENLSCX3J-SSC93* 


79 


93B0 


IFI1SO *C "THEN9490 




CSPC1E3":SSCB)-"CSPC143" 




LSC X3? : 5CTQ9110 


OA 


3390 


I-LENCIS) 


C9 


8BE0 SSC9J-"CSPC1B3" 


9E 


9100 


LSCX3)-SSCX31-LSCX3) 


CE 


9400 


F0RI1-1T0I+1 


OE 


8B30 S-1:DS-"":F0RX-1T0C:; ; DS 


AD 


9110 


PRINTM4, LSCX3) 


GS 


9410 


PRINT"CLEFT3"; 




-DS-"CSXD"; NEXTX 


AA 


9120 


NEXTX3 


BA 


9420 


NEXT 11 


□5 


8840 RB-!NTCCi/35):R9-C';-(RB 


F4 


3130 


IF5-L?iTHEN9150 


E3 


34 30 


G0TQ9250 


3ft 


•353; RS-"" 


FB 


9140 


FQRX-1T0L^-S-X6: PRINT14 


95 


9440 


IFIS-""THEN9340 


8850 RETURN 




:NEXTX 


92 


9450 


IFLENCISi-lTHENIS-"" -Rn 


FC 


8850 I FF9S- "Y "THENB350 


AE 


9150 


IFS'i-0THEN9170 




T09470 


BB 


BB70 FSS-"Y ,, ;INPUT"[DOUN,SHD 


BF 


91B0 


F0RX3-1TDSV.:PRINT»4:NEX 


D4 


94B0 


IS-LEFTSCIS.LENC IS)-1) 




□U nANY LABELS ";N% 




TX3 




FC 


9470 


I1S-"CLEFT,CS,LEFT3" 
G0TC9530 


47 


8BB0 PRINT"CDDUIN,SnS LINE U 


F3 


9170 


G0T0B360 


EB 


3480 




P REQUIRED CCSY3/CSN3)CUPE3 " 


C6 


91B0 


FDRX3- 1T050 : LSCX3) : N 


76 


3190 


IFI1S<" "THEN9340 


5F 


BB90 GETXS: IFXS-"N"THENPRINT 




EXTX3 


D9 


9500 


IFI1S> "Z"ANDI1S< "CCJT'G 


87 


9190 


RETURN 




0TQ9340 


SO 


"C DOUINE] " ; G0TD8350 


SE 


9S00 




38 


9510 


IFLENt IS J-I3G0T03340 


BSOO IFXS<> "Y"THEN9B90 




mm 




BE 


95E0 


IS- IS* I IS ; I F I IS- "3 "THEN 


7F 


BB10 FaRX3-lTDL"s:PRINT#H,0S: 


DB 


9E10 


REM -SUBROUTINE TO INPU 




I1S-' 






NEXTX3 




T* 




59 


3530 


PRINT US; 


CF 


BSEO IFS^-0THENB940 


DD 


9220 


REM *A ALPHANUMERIC DAT 


BE 


9540 


G0T09340 


BE 


B930 F0RX3-lT0Sr-::PRINTtt4:NEX 




A* 




OB 


9550 


IFLENCIS5< I4THEN9340 




TX3 


ID 


8230 


RED -FIELD. 


E4 


95G0 


PRINT 


BF 


8940 G0T08BB0 




• 




C5 


3570 


I-UALCLEFTSC IS, 1)5 


F7 


8950 XS-0 


93 


3240 




34 


95B0 


IFI -OTHENRETURN 


EB 


89S0 X5-X5-1 




■ » 




E9 


9590 


I-UALCISJ.-RETURN 


60 


8970 IFX5>N^THEN91B0 


Bl 


3250 


IS-'"* 









EXTENDING BASIC continued from p.30 



routine, because il isn't a subroutine 
ending with an RTS, as we will see 
in a minute. 

First the routine tests to see if 
there's enough space on the stack to 
do a GOSUB. The routine needs three 
bytes space on the stack. This value 
is loaded into the accumulator (line 
1 180), and then the test itself is made 
(line 1 190). If thee isn't enough space 
left on the stack, routine SA3FB ends 
with the dreaded error report "OUT 
OF MEMORY". 

Otherwise, five bytes are pushed 
onto the stack: the first two bytes point 
at the parameter after the GOSUB 
command. Remember, S7A/7B are 
part of the CHARGET routine and, 
as such, point to the next character. 
This is saved by pushing it onto the 
stack (lines 1200-1230). 

Next, the current line number 
which is contained in zero page $39/ 
3A is pushed onto the stack (lines 1 240- 
1270). Finally, the token code for 
GOSUB (S8D) is pushed onto the 
stack (lines 1280-1290). 

Whenever a RETURN command 
is given, the computer searches for a 



block of data like this, starting with 
S8D. Then the stack pointer is 
modified so that it points to this block, 
and the block is pulled back from the 
stack. Now the Basic program flow can 
jump back to the proper line, and the 
character pointer in S7A, 7B will again 
point at the parameter in that line. All 
that has to be done now is find the 
beginning of the next line so that 
program execution can continue as 
from there. 

In line 1300 of our routine we call 
the GOTO routine, which makes the 
Basic program jump to the subroutine 
which has been called. Finally (line 
1310), we jump to the ROM routine 
at SA7AE which executes the next 
command. Please note that we jump 
to this routine as opposed to not 
returning to it. as with the other 
routines. Can you guess why? 

In lines 1200-1290 of our GOSUB 
routine we have pushed five bytes onto 
the stack. This changes the stack 
pointer by five locations! Therefore it 
would be impossible to use an RTS 
to return us to the proper routine in 
line 400. 



In the next article, I'd like to 
expand on GOTO and GOSUB by 
developing a labeling system for Basic 
which works in the same way most 
assembler programs. That is, you can 
declare a label and then use GOTO 
and GOSUB to jump to the line 
contained in that label. 



Figure 1: ROM Routines 
Used 

SAD8A Evaluate an expression and 
put the result into fip accu 
#1. 

SB7F7 Convert value in fip accu #1 
into integer and put result 
into zero page $14/ 15 and 
Y-register/ accumulator. 

SA8A3 Execute GOTO line number 
contained in SI4, 15. 

SA3FB Test to sec if there's enough 
room on the stack to push 
the number of bytes onto the 
stack which is contained in 
the accumulator. If not, give 
error report "OUT OF 
MEMORY". 
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YOUR COMMODORE 

it* ^rx 01-437 0699 



Send your requirements to 
ANNA EDDIE 

CLASSIFIED DEPARTMENT 
ASP LTD 1 GOLDEN SQUARE 
LONDON W1R 3AB. 



SOFTWARE 



SPECIAL 
OFFER 



MAILORDER 



YOUR COMMODORE 

SPECIALS 
TECH DRAW 64 - A 

comprehensive technical 
illustration aid (or C64 
owners tor both disk and 
tape. Commands available 
include LINE DRAW. RAYS, 
BOX. CIRCLE. ARC. 
ELLIPSE, FREEHAND. FILL. 
HATCH & TEXT. Wipe copy, 
move and rotate, save and 
load or print your drawing all 
lor £8.95 tape or disk. Order 
Codes TD64T (tape) TD64D 
(disk) 

Full details In Your 
Commodore July 1987. 

SPEEDY ASSEMBLER 

Your Commodore's very own 
Assembler, a 100% memory 
resident program (or loading 
from tape or disk, featured in 
the Your Commodore 
Machine Code Series and 
now the Y.C. standard 
assembler only £9.95 Tape or 
Disk. Order Codes 
YSPASSD (disk) YSPASSR 
(tape) 

Order from Your Comm- 
odore Readers Services at 9, 
Hall Road, Maylands Wood 
Estate, Heme), Hempstead 
Herts HP2 7BH. Please make 
cheques payable to A S. P. 
Ltd., or telephone your 
Access/Visa order on 
0442 41221 



PUBLIC DOMAIN 
SOFTWARE FOR THE 
C64/128. 

,iuil In Irom Ihe USA 150 disks lull ol 
games Business programmes ul 1 1 II las 
oducai'OnBl. music, giophics ■ more' 
Send SAE or phone lor oui Ira* 
catalogue. 

Kingsway Computer Service! 
Depl4, 140 Rushdale Road. 
Sheffield S8 9QE. Tel: 0742 588439 



ONLY POOLS AND HORSES 



(and fixed odds) 

No gimmicks Programmes lor 
punlers Irom Iho GENUINE experts 
lirsl grade software al sensible prices 
II you want lo 
WIN REGULARLY 
phone 051 - 336 - 2868 or send SAE lo 
Boxott. V C 65 Allan's Meadow. 
Noston. S Wirrai, L6* 9SO 
Commodore 64/128 



FOR SALE 



TELECODE Finder Locale STD 
codes rapidly. Intercode Finder. 
Locale mternalional codes easily. 
Psychology plus. Analyse your 
character traits, usable with/ 
without Geos, fully documented. 
C8.00 C64/C128 disk only. 



WHY NOT FAX US 
DETAILS OF THE 
ADVERT YOU 
REQUIRE OUR 
NUMBER IS 01- 
437 1006 



T.C. COMPUTERS 



Tel: Wantage 02357 60177 

AMIGA A 500 - T.V. Modulator . .C349.D0 
AMIGA A500- 10B4S 

(New Sierao) C5M.O0 

AMIGA A500 • 1Mq DiSfc. Drive . .C439.M 

AMIGA A500 SUPER PACK BM.00 

AMIGA System 500 CoKiur t7?0 00 

Also Atari ST and PC Compatibles 
including Amatiod bvb<IbMo 
ENQUIRIES WELCOME 
Pleaw M»nd S A E for detaiis- 
NOW AT- 

12A Bernards Way, Charlton 
Heights. Wantage, Oxon 
OX12 7EB 



BM64/128 Software Library Latest 
titles, 7 day hire, all tapes £1.60 
disks £2. For list SAE to Mr C. 
Anderson, 14 Chippendale Court, 
Bellas! BT10 0DU. 



YOUR 

COMMODORE HAS 
RATES TO SUIT 
ALL ADVERTISERS 
LARGE OR SMALL 



SERVICES 



COMMODORE SUPPLIES 

C64 Power Pack C£17.95 

64 Data Rec , £19.95 

C3N (C.16) Data Rec £19.95 

C16 Power pack £12.95 

Neos Mouse & Cheese £19.95 

Prices Include VAT & P& P. Chq lo: 

OMINDALE LTD 
23 Curzon Street, Derby. 
Tel: 0332 291219 



JOHNS COMPUTER 
STORE 

(Home & Business Systems) 

COMMODORE AMIGA A500 

WO MoOuMtor S Son-are pat-) . . .OU.D0 

coMMooone cm Hollywood 

PACK [149 00 

COMMODORE ENTERTAINMENT 

PACK J1M.00 

Prions loi Mlaits 

For lu nn»r mall ordsr offer* (All prica* 
■ nc I lui.c ol VAT) contact - 

J.C.S. 93 Graham Street, Alrdrie, 
Scolland ML6 6BU 
Tel: 0236 69874 



DISCUSS YOUR 
ADVERTISING 
WITH ANNA EDDIE 
01 - 437 0626 



DISKS 



Why Take Risks?. ..Buy Branded 
disks. 

GOLDSTAR ]</.' D5/DD DISKS 
Boned in 10's. 100% error free, 
Branded, Fully Guaranteed, Includes 
Labels. 

£8.30 + VAT Per box of 10 

PLEASE ADD 87p t VAT FOR P&P 
Goods sent same day as order 
received 

P.V. TUBES (MAIL ORDER 
DEPT.) 

104 Abbey St., Accringlon, Lanes, 
BB5 1EE 

Tel- (0ZS4) 36521/32611/390936 
Fax-0364-395361 

PARTNERS: Mrs.S. C ucknel l/Mr. 8. 
Cucknell ft^l jjJJ 



Repairs 
Guide 

CALL 
ANNA EDDIE 



O N 

01—437 0699 



9 
o 

FOR FAST. RELIABLE AND PROFESSIONAL 
REPAIRS AT COMPETITIVE PRICES 

P M ENGINEERING 



UNIT 260, MILTON SCIENCE 
PARK, CAMBRIDGE CB4 4WE 



sir. 




Wo can also supply Hardware, Software, Blank Disks, 
Accessories and Spare parts. 
C64 Repairs £19.95 inc. VAT (p&p FREE) 
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Repairs 
Guide 

CALL 
ANNA EDDIE 
O N 

01—437 0699 




REPAIRS 



AMIGA ATARI etc. 
MONITORS & ALL ADD ON,s. 
AMIGA UPGRADES AND MOD,s 
All estimates FREE 
Prices from only £19.50 
Call or post FAST TURNAROUND 



PVS ELECTRONIC COMPONENTS 

244 Deansgate Court, 

Deansgate, Manchester M3 4BQ JfMPVS 
Tel: 061 831 7086 Telex 668986 IT 
Fax 061 832 6934 



"COMPUTER KAPUT V 

PETV1C20 
PLUS4C16 
C64 C128 
AMIGA... 

FAST 
EFFICIENT 
SERVICE 

FOR REPAIRS CALL 
01-B61 2835 
(NW LONDON-HARROW) 




COMMODORE SPARES & REPAIRS 

WB11 4-01 Btw 



BID 


CMS 

, CUM 


■01J77-O3 


ttO.M 


PQI3M41 


£1.30 


S501 tin i* 


".M 


CW-4 JoyiMk 

C(J Poanack 

VIC 20 MOD 


£12 » 

£22.00 

ttJ.M 


CO* Cmette Uiui 


£3100 



OASIS 




C?fl Po-flfDSCK £69 00 

tNCL. VAT 4 P»P 
Dept. AC, 14 HIDGEWAY ROAD, SALISBURY, 
WILTSHIRE, SP1 3BU. TEL: (0722) 335061 



THE TELEPHONE NUMBER 
AT THE TOP OF THIS 
PAGE IS FOR 
ADVERTISERS ONLY. 
ANNA EDDIE IS UNABLE 
TO ISSUE DETAILS OF 
REPAIR CENTRES OTHER 
THAN THOSE 
ADVERTISED HERE. 



SPARES REPAIRS SALES 

all makes of computers & peripherals 
Fast Reliable Guaranteed Service 

Contact Dave Barber H.Eng., AMIERE 

db ELECTRONIC SERVICES 

205 Meadgate Avenue, Gt. Baddow, 
Chelmsford, Essex. CM2 7NJ 
Tel: 0245 - 260874 



COMPUTER REPAIRS (UK) 

Specialist Repairs To All 
Commodore Equipment. 

* From only £35 - VAT. 

* All repairs guaranteed. 

# Delivery & collection service 
* Trade contracts. 
* We also buy/sell s/hand Commodore 
Equipment 

HEMEL HEMPSTEAD 

2 Auitlns Place, High Street, 
Heme! Hempstead. 



CROYDON COMPUTER 
CENTRE 



25 Brigstock Road, Thornton Heath, 
Surrey, CR4 7JJ Tel: 01 683 2646 



COMPUTER SERVICING 



(Ett'd since 1979) 

We repair — on ihe premises — quick 
turnround 

* Commodore 

* BBC & Electron (Approved Service Centre) 

* Amstrad & Torch (Approved Service Centre) 

• Disc Drives. Printers. Monitors 
Mall Orders by phone Access & Visa accepted 



VTS COMPUTER REPAIRS 



01 - 407 9829 

Simply send your unit to the address below 
securely packed with fault description and 
max tee. 

COMMODORE, AMSTRAD. BBC. SINCLAIR 
- MORE £28 00 



VTS COMPUTER REPAIRS 



12 Lyly House, Gt. Dover Street, 
London, SE1 4EQ. 
FAST, RELIABLE TURNAROUND 



COMMODORE SERVICE CENTRE 

Fasl repair service tor:- 

* VIC 20 * C16/-4 * CBM 64/CBM C64* 

* CBM 1 * AMIGA * DISC DRIVES * 

« ail othor makes as well * 
All units repaired to original standard by fully 
qualified statf. All repairs guaranteed. 
* We slock spares for all computers # 
Mail onjers and phone orders, access ft visa 
accepted 
Personal callers always welcome. 
• On the premises repairs, quick turn around * 
OUANTAM ELECTRONIC SERVICES, 
33 City Arcade, Coventry, CV1 3HX. Tel: 0203 224632 
or 0926 337841 



COMMODORE REPAIRS 

(with FREE extended guarantee) 
COMMODORE 64 £28.70 
COMMODORE 128 £36.70 
COMMODORE 

C16A4/VIC 20 £20.70 

Price is all inclusive and we guarantee the 
whole computer for six months 

KPR MICRO, 

34, Petunia Crescent, Springfield, 
Chelmsford, Essex CM1 5YP 
Tel: 0245 - 468554 



SPECTRUM 

CM 

C16 

V1C20, C-4 
BBC 



Computer repairs 

Fixed Super Low Pricesf 

Inclusive of pans. labour and VAT 




FIRST AID 
FOR 
TECHNOLOGY 



1 week turnaround Collect ton /delivery available lor local area 
* SUPER OFFERS * 



E14 Inc. I Free Game 
£22 Inc. - Free Game 

£18 Inc. 
£22lnc. 

£32 Inc. 



ELECTRON 
COMMODORE 1541 

DISC DRIVE 
SPECTRUM 128 
C64 P.S.U. for sale 



£32 

£38 inc. 
£16 inc. 
£20 Inc. 



Please enclose payment with Item - 3 month warranty on repair Please enclose adren with repair 

W.T.S. ELECTRONICS 
Y.C. Studio Master House, Chaulend Lane, Lulon, LU4 8EZ. Tel: 0582 491949 

Atl iio'iti rwetvoa 



HINDLEY ELECTRONICS 
COMPUTER REPAIRS 

STANDARD CHARGES 
Commodore 64 £25.00 
Commodore -4 £25.00 
Commodore CIS £21.00 
Commodore VIC 20 [13.00 
For commodore iC's and Disk Drive repairs please 
ring tor details 
All pnces inclusive Of VAT and return postage 
including Insurance 3 months warranty on repairs 
with average 24 hour turnaround. 
Depl VC. 97 Market Street. Hlndtey. Wigan. 
Tel: (0942) 522743 
I The standard charge may not apply to machines 
with multiple faults) 
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Readers Problems 

Though the Commodore 64 is one of 
the world's most popular 
microcomputers, it can be very 
difficult to find speecific information 
about your particular machine. 

At the Your Commodore office we 
receive literally hundreds of letters 
from you, our readers, on a wide range 
of subjects ranging from the simple 
'Can you give me the telephone 
number for to the more complex 
'I'm trying to write a program that uses 
a split screen. How do I do it?' 

Unfortunately, the volume of mail 
received has become so great that it 
is impossible to answer every letter and 
still mange to publish a magazine each 
month. 

For this reason we have felt it 
necessary to produce a number of 
guidelines for getting information 
from us. 

1) We cannot guarantee to answer 
every letter sent to the magazine. 
Should it become apparent that a 
number of readers are suffering from 
the same problem, then we will reply 
to the letter via the Letters page. 

2) A new helpline has been set up. This 
will be open for your queries on 



Tuesday and Thursday afternoons 
between 2.00pm and 4.00pm. We will 
not be able to deal with your telephone 
queries at any other time. If our 
technical adviser is not available when 
you ring, then a message will be taken 

3) If you are having problems with one 
of our listings, can you please let us 
know in writing. This will enable us 
to see if a number of people are having 
the same problem. When a common 
problem becomes apparent with a 
program, then a correction sheet will 
be issued. Enclose a self-addressed, 
stamped envelope and we will send you 
a copy of the correction sheet as soon 
as it is available. 

We are sorry that it has become 
necessary to instigate these rules. 
However, we are sure that you will 
agree with us that the more time that 
we can spend making Your 
Commodore the most informative 
magazine around, the better. 
For program queries write to: 
Program Corrections 
Your Commodore 
I Golden Square 
London 
W1R3AB 

If you wish to telephone then call: 
0M37 0626 Extn212 



Commodore Where Are You? 

At the Your Commodore office we are 
repeatedly asked for the address and 
telephone number of Commodore 
U.K. Many people, after referring to 
their computer manuals, believe them 
to be based in Corby. 

The Commodore plant a[ Corby 
was closed down some lime ago. 
Reproduced here you will find the 
correct address for Commodore U.K. 

We suggest that you write this 
correct address in the front of vour 



computers manual for future 
reference. 



Commodore Business Machine. (UK), 

Commodore House, 

The Switchback. 

Gardner Road. 

Maidenhead. 

Berks SL6 7XA. 



Tel: (0628) 7700S8 



William Tell 

If you have been typing in the William 
Tell program over the last few months 
you will be pleased to note that it is 
completed in this issue . 

In order to get the program to 
run correctly you should follow the 
procedure below: 

1 ) Make sure thai you have the 6 Ba- 
sic loaders to hand. 

2) If using cassette make sure that you 
have a new one handy and that it is a 
long one. 

3) Type in and SAVE the program 
below onto your disk or onto the cas- 
sette mentioned in 2 above. If using 
cassette change the ( 8's to ,1*8. 

4) Turn OFF and ON your machine. 

5) LOAD the first Basic loader and 
RUN it. A new program will be 
saved out once this is finished. If using 
cassette make sure that you place the 
new cassette into the recorder before 
you RUN the loader. The new program 
should be saved directly after the pro- 
gram you have just entered in 3. 

6) Turn OFF and ON your machine. 

7) LOAD the next Basic loader and 
repeat the steps 5 to 7 for all remaining 
Baic loaders. 

8) To start the William Tell program 
simply LOAD and RUN the first pro- 
gram that you SAVEd. This will then 
LOAD and RUN the rest of the game. 

PROGRAM: WILLIAM TELL 

|0 ffA-OTHENLOAD* , WTl".8.1:A=A+l 
20 1FA=1THENL0AD"WT2\8.1:A=A+! 
30 IFA=2THENLOAD"WT3 , \8,l:A=A+l 
40 IFA=3THENLOAD"WT4",8.1 ;A=A+ 1 
50 IFA=4THENLOAD"WT5".8,l:A=A+l 
60 LFA=5THENLOAD"WT6".8.1:A=A+l 

70 SYS 35191 



The Nibbles 



By Alan Batchelor 
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THE TIM 



Britain's First Music Magazine for the Computer User! 

Featuring Reviews on Hardware & Software across all formats - Micro Music is 
the magazine the Computer Musician has been waiting for. 
Available 10th March from all good Newsagents 



SPECTRUM 




INTERNATIONAL 




YOUR 
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OPERATION KOLT- 
PAC MANIA 
RISK 
TANK ATTACK 




01 



P 
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Audiogenic Software Limited, Winchester House, 
Canning Road, Harrow HA3 7SJ, England 

Order by phone on 01 861 1166 W~\ 



